CP/M MACRO ASSEM 2.0 #001 CBIOS Revision E for CP/M Version 2.2 - March 4, 1982 

* 830116 PUT IN OKIDATA AND DIABLO ROUTINES I 

* ■ 

* 830116 FIRST ATTEMPT AT RECONFIGURING- MINOR EQUATE CHANGES ONLY. JJO 

* 1 ■ ^ 

************************************************************************* 

I ■ * 

* . .' , 

* MORROW DESIGNS CBIOS FOR CP/M VERSION 2.2. i * 

* THIS CBIOS CAN BE CONFIGURED TO RUN WITH THE FOLLOWING DEVICES. * 

* THE DISKS MAY BE CONFIGURED TO RUN WITH ANY OR ALL OF THE DISK i * 

* SYSTEMS. THE LOGICAL ORDER OF THE DISKS CAN BE SET TO ANY ORDER. 
* 

* DISK SYSTEMS: 

* HDCA 10, 20 AND 26 MEGABYTE HARD DISKS. 

* HDDMA 5, 10, 16, MEGABYTE HARD DISK SYSTEMS. 

* DJDMA FLOPPY DISK CONTROLLER WITH 8 AND 5 1/4 INCH DISKS. ! 

* DJ 2D/B FLOPPY DISK CONTROLLER WITH 8 INCH DISKS. | 

* ■ 

* CONSOLE I/O: 

* DISK JOCKEY 2D/b SERIAL. 

* DISK JOCKEY DMA SERIAL. 'i 

* MULTI I/O SERIAL. 

* DECISION I SERIAL. 
* 

* PRINTER I/O: 

* MULTI I/O SERIAL WITH HANDSHAKING. 

* MULTI I/O DIABLO 1620 SIMULATOR FOR THE HYTYPE II. 



* 



* NOTE: FLOPPY SYSTEMS DISKETTE (DRIVE A:) HAS TO HAVE 1024 BYTE i 

* SECTORS IN ORDER FOR THE COLD AND WARM BOOT LOADERS TO 

* WORK. BE SURE TO FORMAT ALL NEW SYSTEM DISKETTES WITH 

* 1024 BYTE SECTORS. THE SYSTEM DISKETTE CAN BE EITHER , 

* SINGLE OR DOUBLE SIDED. THE SECTOR SIZE ON NORMAL (NON 1 

* A: DRIVE) DISKETTES IS NOT RESTRICTED. THUS IF YOU HAVE * 

* A DISKETTE WITH SOFTWARE THAT IS SUPPOSED TO RUN ON THE * 

* A: DRIVE THEN YOU SHOULD MOUNT THE DISKETTE IN THE B: * 

* DRIVE AND THEN PIP IT OVER TO A 1024 BYTE SECTOR * 

* SYSTEM DISKETTE. ; 



* 



* WRITTEN BY LES KENT AND MARC KUPPER 3/4/82 

* , ! 

* DATE PROGRAMMER DESCRIPTION 

* ; 

**11 20 82 MARC PUBLIC RELEASE OF REVISION E.31 * 

* 11 19 82 MARC CHANGED HDC3 EQUATE TO HDCA * 

* 11 19 82 MARC CHANGED BLANK 10 ROUTINES FROM RET TO JMP $ * 

* 11 19 82 MARC CONVERTED BIOSLN TO A BYTE VALUE * 

* 11 9 82 MARC REDUCED BAD MAP SIZE TO 1 FOR NON MW SYSTEMS * 

* 11 8 82 MARC DELETED BAUD RATE TEST FROM MULT 10 DRIVERS * 

* 11 4 82 MARC ADDED INITIAL lOBYTE TO lOCONF * 

* 11 3 82 MARC ADDED THE NORTH STAR CHARACTER l/O SYSTEM * 

* 11 2 82 MARC ADDED CHARACTER REDIRECTION CODE FOR THE lOBYTE * 

* 11 1 82 MARC CHANGED SERIAL l/O ENTRY NAMES TO lOBYTE NAMES * 

* 10 18 82 MARC FIXED SETHIGH FOR 2 SIDED DJDMA 8 INCH DI$KS * 

* 10 18 82 MARC DELETED THE HYTYPE DRIVERS * 
**10 1 82 MARC PUBLIC RELEASE OF REVISION E.3 * 
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40H NOW POINTS TO THE HDDMA COMMAND CHANNEL 

Ml-f'S NOW HAVE 1024 DIRECTORY ENTRIES 

DELETED THE CENTRONICS DRIVERS 

CHANGED LOGIN MESSAGE TO LOOK LIKE A LABEL 

CHANGED THE LOGIN MESSAGES TO SAY M5 , M10, ... 

REDEFINED THE DPARAM TABLE STRUCTURE 

ADDED A SERIAL CONSOLE FOR THE SWITCHBOARD 

ADDED INITIALIZATION CODE FOR SERIAL GROUP 2 

ADDED SECTOR SIZE BYTE TO THE HDCA DPB ' S 

ADDED SECTOR SIZE PARAJt-lETER TO DPBGEN 

FIXED SYSTEM LENGTH CHECKS FOR 64K SYSTEMS 

SETHIGH WAS BOTCHING 2 SIDED DPB POINTERS : 

CHANGED TRACKS IN HD DRIVER TO HDTRAK 

ADDED CODE/ SYSTEM LENGTH CHECKER 

MWRESET save/ RESTORES THE TRACK NUMBER 

MWRESET NOW SETS *STEP Al^D *DIR FOR CMI 

ADDED 'EQU'ED HANDSHAKING TO THE SERIAL LST: 

REMOVED CLOCK SWITCHING CODE FROM HDCA DRIVER 

ADDED HANDSiiAKE CONFIGURATION CODE 

ADDED HANDSi-lAKE CONFIGURATION BYTES 

REMOVED 'EQU'ED HANDStlAKING FROM LST: 

ADDED CONFIGURATION ENTRIES FOR A0 & D0 

ADDED THE AUTOSTART COMMAND STRUCTURE 

REDEFINED THE CONFIGURATION TABLE 

ADDED DJDMA DRIVE PARAMETER TABLE 

ADDED CLOCK SWITCHING TO HDCA CODE 

ADDED SEEK COMPLETE CLEARING IN HDCA 

ADDED BUFFER DISABLE ON HOME 

FIXED 8250 UART INITIALIZATION SEQUENCE 

STRIP PARITY ON CONOUT TO CLEAR UP GLITCHES 

FIXED THE 8 INCH DPB256SS DPB ' S EXM 

INCREASED THE KD CAPACITIES SLIGHTLY 

DELETED ALL NON-SUPPORTED MW DRIVES 

DELETED CALL TO FLUSH IN CONOUT 

MOVED PRINTER BACK TO PORT 3 

MOVED CONIN FLUSH CALL TO CONOUT 

FIXED DOUBLE SIDED HEAD SETTLE TIME 

OPTIMIZED MWISSUE 

CLEAN UP LOGIN MESSAGE FOR HD A BIT 

FIXED MF MULTI DENSITY PROBLEMS 

ADDED OLIVETTI HD561/1 HD561/2 DRIVES 

ADDED A MW ERROR REPORTER 

ADDED NONSTANDARD SYSTEM MODE FLAG 

ADDED A BUFFER ERROR FLAG 

ADDED SAVE/RESTORE OF 50-52 TO MW DRIVER 

FIXED CENTRONICS DRIVERS 

FIXED ALLOCATION MAP SIZES 

FIXED MW PARTITIONING 

FIXED HD PARTITIONING (AGAIN) 

FIXED ILLEGAL MAC LABELS 

FIXED NORTH STAR DRIVE CONFIGURATIONS 

FIXED QUANTUM Q2040 TRACKS TO 512 

FIXED ST412 STEP CONSTANT TO 

ADDED UNALLOCATED WRITING 

FIXED HD PARTITION OVERLAP 

STARTED TESTING AND DEBUGGING OF E.3 
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* 4 19 82 MARC ADDED 1 SECTOR TO HD WARM BOOT LOADER ; * 

* 4 19 82 MARC ADDED MOD. NUMBER TO CBIOS REV. NUMBER * 

* 4 19 82 MARC CLEAN UP LOGIN MESSAGE ' IF ' S * 

* 4 15 82 MARC FIXED MCR INITIALIZATION FOR LST: * 

* 4 15 82 MARC ADDED SEAGATE ST412 DRIVE * 

* 4 6 82 MARC MOVED SERIAL LST: DEVICE TO PORT 2 * 

* 4 1 82 MARC ADDED COMMON GROUP SELECT ROUTINES * 

* 4 1 82 MARC FIXED DIABLO HYTYPE II INITIALIZATION * 

* 4 1 82 MARC FIXED LISTST FOR PROM DRIVER * 

* 3 16 82 MARC ADDED TANDON TM602 AND TM503 DRIVES * 

* 3 16 82 MARC USE 'PART NUMBER' EQUATES FOR MW DRIVES * 

* 3 15 82 MARC DROPPED HDREV AND MWREV EQUATES * 

* 3 15 82 MARC SEAGATE ST506 HEAD SETTLE IS MS. * 

* 3 15 82 MARC ADDED MINISCRIBE 1006 AND 1012 DRIVES * 

* *3 1 82 MARC PUBLIC RELEASE OF REVISION E.2 * 

* 2 — 82 MARC PRE-RELEASE TESTING AND DEBUGGING * 

* 2 1 82 LES + MARC INITIAL CODING OF REVISION E ' * 

* * 

********************************************************************** 

TITLE 'CBIOS Revision E for CP/M Version 2.2 - March 4, 1982' 

0035 = REVNUM EQU 53 ;CBIOS REVISION NUMBER 5.X = E 

0016 = CPMREV EQU 22 ;CP/M REVISION NUMBER 2.2 

************************************************************************* 

* * 

* THE FOLLOWING FLAGS SET A 'NON-STANDARD* SYSTEM MODE AND AN * 

* ASSEMBLY TIME DEBUGGER. * 

* * 

* IF THIS CBIOS IS USED WITH THE CP/M 2.2 SYSTEM THAT IS SHIPPED ON * 

* A MORROW DESIGNS DISKETTE THEN NOSTAND CAN BE SET TO 1. THIS * 

* WILL ALLOW THE CBIOS TO USE VARIOUS DATA AREAS FOUND INSIDE OF : * 

* THE CP/M 2.2 BDOS. IF THE CBIOS IS USED WITH A DIFFERENT ' * 

* OPERATING SYSTEM THEN NOSTAND SHOULD BE SET TO 0. * 

* * 

* THE DEBUG FLAG MERELY CAUSES VARIOUS INTERNAL VALUES AND * 

* ADDRESSES TO BE PRINTED DURING THE ASSEMBLY PROCESS. THIS * 

* PRINTING IS FORCED VIA ASSEMBLY ERRORS AND THUS SHOULD NOT * 

* AFFECT THE RESULTING CODE IN ANY VJAY. * 

* * 

*****************************************************************i******* 






m 



0001 = NOSTAND EQU 1 ; SET TO 1 FOR NON-STM^IDARD MODE ' H 

0000 = DEBUG EQU ;SET TO 1 FOR DEBUGGING MODE 

************************************************************************* ^ 

* * ^ 

* THE FOLLOWING IS SET TO THE MEMORY SIZE OF THE CP/M THE CBIOS 1$ * 

* BEING CREATED FOR. * i H 

* 1 * ': 
************************************************************************* 

0040 = MSIZE EQU 64 ; MEMORY SIZE OF TARGET CP/M I I 

0016 = BIOSLN EQU 16H ;BIOS LENGTH. ALSO IN ABOOT&.ASM! ' m 
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************************************************************************* 

' * 



* THE FOLLOWING EQUATES SET UP THE DISK SYSTEMS TO BE INCLUDED 

* ALONG WITH THE TYPES OF DRIVES AND THE LOGICAL ORDER OF THE 

* DRIVES. 



* 
* 
* 
* 



************************************************************************* 






0001 
0000 

0000 
0001 

0000 

0001 
0000 
0000 
0002 
0000 

0000 
0001 

0000 

0000 



0000 
0000 
0000 

0000 



0000 = 



0001 = 



;SET TO NUMBER OF HDCA HARD DISK DRIVES 

;SET TO NUMBER OF HDDMA HARD DISK^ 

;SET TO NUMBER OF 2D/B FLOPPIES 

;SET TO NUMBER OF DJ DMA FLOPPIES i 8 INCH 

;SET TO NUMBER OF DJ DMA FLOPPIES 5 1/4 INCH 

;SET THE ORDER OF LOGICAL DRIVES ELSE IF 
; NOT INCLUDED. 



HDCA CONTROLLER DISK DRIVES. SET ONLY ONE 

FUJITSU M2301B 

FUJITSU M2302B 

SHUGART SA4000 

MEMOREX 

HDDMA CONTROLLER DISK DRIVES. SET ONLY ONE 
SET FOR NO NAMES PRINTED ON LOGIN 
SEAGATE ST-506 
SEAGATE ST-412 
CMI CM-5619 

; DEVICE TO WARM BOOT FROM. THIS IS THE 
; CP/M LOGICAL DRIVE NUMBER. 

;ONLY HDDMA DRIVES USE THE BAD MAP 
; NUMBER OF BADMAP ENTRIES ; 

; LEAVE ONE ENTRY AS FILLER 



************************************************************************* 

i * 



t>lAXHD 


EQU 


1 




MAXMW 


EQU 







MAXFD 


EQU 







MAXDM 


EQU 


1 




MAXMF 


EQU 







HDORDER 


EQU 


1 




MWORDER 


EQU 







FDORDER 


EQU 







DMORDER 


EQU 


2 




MFORDER 


EQU 







M10F 


EQU 







M20 


EQU 


1 




M26 


EQU 







M10M 


EQU 







MWQUIET 


EQU 







ST506 


EQU 







ST412 


EQU 







CM5619 


EQU 







WMDRIVE 


EQU 









IF 


MAXMW NE 





BADSIZ 


EQU 
ELSE 


32 




BADS I Z 


EQU 
ENDIF 


1 





* SINCE MOST HARD DISK DRIVES HOLD MORE THAN 8 MEGABYTES WE 

* PARTITION THE DRIVE. WE PARTITION OUR DRIVES USING TWO DIFFEREl^T 

* FORMULAS. 
* 

* ONE IS THE SO CALLED 'STANDARD PARTITIONING' WHERE WE TRY TO 

* CREATE AS MANY 8 MEGABYTE PARTITIONS AS POSSIBLE PLUS A SMALL 

* PARTITION TO TAKE UP THE SLACK ON THE END OF THE DRIVE. i 
* 

* ANOTHER WAY THE DRIVES ARE PARTITIONED IS THE SO CALLED 'EVEN 

* PARTITION" FORMULA. THIS MEANS THAT THE DRIVE IS SPLIT INTO 

* EQUALE SIZED PARTITIONS WITH THE ONLY RESTRICTION BEING THAT NO 

* PARTITION BE OVER 8 MEGABYTES IN LENGTH. 
* 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



# 
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* 
* 
* 

* 

* * 

************************************************************************* 



* ALL HARD DISK DRIVES SHIPPED FROM MORROW DESIGNS ARE PARTITIONED 

* USIMG THE STANDARD PARTITION FORMULA. IF THE USER WISHES TO 

* IMPLEMENT EVEN PARTITIONING THEN HE/ SHE MUST SET HDPART OR MWPART 

* TO THE NUMBER OF PARTITIONS DESIRED. 



0000 = 
0000 = 



HDPART EQU 
MWPART EQU 



;SET TO NUMBER OF NON STANDARD PARTITIONS 
;SET TO NUMBER OF NON STANDARD PAl^TITIONS 



************************************************************************* 

* * 

* THE FOLLOWING EQUATES DEFINE THE CONSOLE AND PRINTER ENVIRONMENTS. * 

* * 
************************************************************************* 



m 



0002 = 
0006 = 









************************************************************************* 

* * 

* DEFINE THE CONSOLE DRIVER TO BE USED. 



* CONTYP IS: 

* 1 

* 2 

* 3 

* 4 

* 5 

* 6 
* 



NOTHING, USED FOR PATCHING TO PROM'S. 

PROVIDE FOR 128 BYTES OF PATCH SPACE. 

MULTI I/O OR DECISION I DRIVER. 

2D/B DRIVER. 

DJDMA SERIAL PORT 

SWITCHBOARD SERIAL PORT 

NORTH STAR MOTHERBOARD (2 SERIAL + 1 PARALLEL) * 

* 

* SET CBAUD TO THE DIVISOR LATCH VALUE FOR THE CONSOLE. FOR AN * 

* EXPLANATION OF THE VALUES LOOK AT THE DEFCON TABLE. * 

* * 

************************************************************************* 

CONTYP EQU 2 

CBAUD EQU 6 i 

************************************************************************* 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* DEFINE THE PRINTER DRIVER TO BE USED. ! 
* 

NOTHING, USED FOR PATCHING TO PROM'S. 

1 PROVIDE FOR 128 BYTES OF PATCH SPACE. 

2 MULT 10 SERIAL, NO PROTOCOL. 

3 MULTIO SERIAL, CLEAR TO SEND PROTOCOL. 

4 MULTIO SERIAL, DATA SET READY PROTOCOL. 

5 MULTIO SERIAL, XON/XOFF PROTOCOL. 
* 

* NOTE: THE DECISION BOARD IS FUNCTIONALLY IDENTICAL TO THE MULTI 
I/O BOARD FOR SERIAL PRINTER l/O. SELECTIONS 2 TO 5 WILL; 
WORK ON THE WUNDERBUSS l/O BOARD. TO USE DRIVERS 6 OR 7 
THE MULTR3 EQUATE WILL HAVE TO BE SET. 



* LSTTYP IS 
* 

* 

* 

* 

* 



* 
* 
* 
* 

* SET PBAUD TO THE DIVISOR LATCH VALUE FOR THE PRINTER. 

* EXPLANATION OF THE VALUES SEE THE DEFLST TABLE. 
* 



FOR AN 



************************************************************************* 






m 

m 
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0003 
0060 



0000 
0001 

0003 



LSTTYP EQU 3 ! 

LBAUD EQU 96 

************************************************************************* 

* * 

* THE NEXT EQUATE DETERMINES IF YOU HAVE A MULTI l/O REV 3 OR A * 

* DECISION I MOTHER BOARD FOR PARALLEL l/O. IF ARE NOT USING * 

* EITHER OF THESE BOARDS THEN YOU NEED NOT WORRY ABOUT THIS EQUAT?. * 

* IF YOU ARE USING A MULTI l/O REV. OTHER THAN 3.X OR 4.X THEN YOU * 

* SHOULD SET MULTR3 TO 0. * 

* ! * 
************************************************************************* 



MULTR3 EQU 
CONGRP EQU 1 
LSTGRP EQU 3 



= DECISION, 1 = MULTI l/O REV. 3 OR 4 
COSOLE PORT (1 = PI, 2 = P2, 3 = P3) 
PRINTER PORT (1 = PI, 2 = P2, 3 ^ P3) 



************************************************************************* 

* * 

* THE FOLLOWING EQUATES ARE INTERilAL TO THE CBIOS. ; * 

* * 
*************************************************************** **^* ****** 






m 
m 



0000 = 



0003 = 



0000 # 



0001 = 
0001 = 
0015 = 

0000 # 
0009 = 

0004 = 



M10 

HDLOG 
HDLOG 

MWLOG 
MWLOG 



EQU 

IF 

EQU 

ELSE 

EQU 

ENDIF 

IF 

EQU 

ELSE 

SET 

ENDIF 



HDCA EQU 
FUJITSU EQU 
HDSPT EQU 

HDMA SET 
MWSPT EQU 

MAXLOG EQU 



M10F OR M10M 

HDPART NE 
HDPART 

M10*2+M20*3+M26*3 



;USE NON STANDARD PARTITIONS 

; LOGICAL DISKS PER DRIVE ]^0R HDCA 



;USE NON STANDARD PARTITIONS 
ST506+ST412*2++CM5619*2 ; LOGICAL DISKS PER DRIVE FOR HDDMA 



MWPART NE 
MWPART 



M26 OR M20 OR M10 
M20 OR M10F 
32*M26+21*M20+21*M10 

ST506 OR ST412 OR CM5619 
9 



;HDCA CONTROLLER 

; SECTORS PER TRACK 

;HD DMA CONTROLLER 
; SECTORS PER TRACK 



( MAXHD*HDLOG ) + ( MAXMW*MWLOG ) +MAXFD+MAXDM+MAXMF 



************************************************************************* 

* 
* 

* 

! * 
************************************************************************* 



* CP/M SYSTEM EQUATES, 



m 
m 



0800 = 



CCPLN EQU 



800H 



cp/m macro 


ASSEM 2.0 


#007 


0E00 = 


BDOSLN 


EQU 


0000 = 


SIZE 


EQU 


D400 = 


CCP 


EQU 


DC00 = 


BDOS 


EQU 


EA00 = 


BIOS 


EQU 



3700 = 



0004 = 
0080 = 
0100 = 
0003 = 

0000 = 

0005 = 



E9E7 = 



000 A 
001A 

0000 
0003 
0006 
0007 
0008 
0009 
000A 
000B 
000C 
000D 
0011 
0013 
001B 
001E 
001F 
0020 
007F 



CHIOS Revision E for CP/M Version 2.2 - March 4, 1932 
0E00H I 

I 

(MSIZE*1024) 

SIZE-(BIOSLN*100H+CCPLN+BDOSLN) 

CCP+CCPLN 

CCP+CCPLN+BDOSLN 



OFFSETC EQU 



DBGTMP 


SET 


DBGTMP 


SET 


DBGTMP 


SET 


DBGTMP 


SET 

END 


CDISK 


EQU 


BUFF 


EQU 


TPA 


EQU 


lOBYTE 


EQU 


WBOT 


EQU 


ENTRY 


EQU 




IF 


CBLOCK 


EQU 



2100H-BIOS 

DEBUG 

OFFSETC 

CCP 

BDOS 

BIOS 



4 

80H 

100H 

3 



5 

NOSTAND NE 
BI0S-19H 



; OFFSET FOR SYSGEN 



;DDT OFFSET i <DEBUG> 

;CCP ADDRESS I <DEBUG> 

;BDOS ADDRESS 1 < DEBUG > 

;CBIOS ADDRESS I <DEBUG> 



; ADDRESS OF LAST LOGGED DISK 

; DEFAULT BUFFER ADDRESS 

; TRANSIENT MEMORY 

;IOBYTE LOCATION 

;WARM BOOT JUMP ADDRESS 

;BDOS ENTRY JUMP ADDRESS 



; CURRENT ACTUAL BLOCK* * BLKMSK 
;USED FOR UNALLOCATED WRITTING 






END IF 



************************************************************************* 

* ' ! * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. CONSTANTS. * 

* * 
************************************************ *****************'f******* 

MAX RETRIES ON DISK l/O BEFORE ERROR 
CLEAR SCREEN ON AN ADM 3 

NULL i 

ETX CHARACTER '. 

ACK CHARACTER j 

BELL i 

BACK SPACE I 

HORIZONTAL TAB 

LINE FEED 

VERTICAL TAB 

FORM FEED 

CARRIAGE RETURN , 

XON CHARACTER 

XOFF CHARACTER 

ESCAPE CHARACTER 

RS CHARACTER 

US CHARACTER 

SPACE 1 

DELETE ! 



RETRIES 


EQU 


10 


CLEAR 


EQU 


'Z'-64 


ANUL 


EQU 





AETX 


EQU 


'C'-64 


AACK 


EQU 


•F'-64 


ABEL 


EQU 


'G'-64 


ABS 


EQU 


'H'-64 


AHT 


EQU 


'I'-64 


ALF 


EQU 


'J*-64 


AVT 


EQU 


'K'-64 


AFF 


EQU 


•L'-64 


ACR 


EQU 


'M'-64 


XON 


EQU 


'Q'-64 


XOFF 


EQU 


'S'-64 


AESC 


EQU 


IBH 


ARS 


EQU 


lEH 


AUS 


EQU 


IFH 


ASP 


EQU 


1 ■ 


ADEL 


EQU 


7FH 






************************************************************************* 
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* I * 

* THE FOLLOWING ARE THE MACROS USED IN GENERATING THE DPH, DPB ANlp * 

* ALLOCATION TABLES. * 

* * 

DPBGEN MACRO NAM, LOG, DSPT, DBSH, DBLM, DEXM, DDSM, DDRM, DAL0, DALl, DCKS, DOFF, SSI Z 

DPB&NAM&LOG EQU $ ; 

DW DSPT 

DB DBSH 

DB DBLM 

DB DEXM 

DW DDSM 

DW DDRM 

DB DAL0 

DB DALl 

DW DCKS 

DW DOFF 

DB SSIZ 

ENDM 

I 

DPHGEN MACRO NAM,LOG, DPBl, DPB2 

DPH&NAM&LOG EQU $ 

DW 

DW 0,0,0 

DW DIRBUF 

DW &DPB1&DPB2 

DV* CSV&NAM&LOG 

DW ALV&NAM&LOG 

ENDM 

ALLOC MACRO NAM,LOG, AL, CS 

CSV&NAM&LOG: DS CS 

ALV&NAM&LOG: DS AL 
ENDM 

***************ie********1c***1c*************1c**1c***ie*********************** 

* * 

* THE FOLLOWING MARCO IS USED IN GENERATING THE LOGICAL ORDER OF THE * 

* CP/M DRIVES. * 

* * 
************************************************************************* 

ORDER MACRO NUM 

IF NUM EQ HDORDER 

DW HDDST 

ENDIF 



IF 


NUM EQ 


MWORDER 


DW 


MWDST 




ENDIF 






IF 


NUM EQ 


FDORDER 


DW 


FDDST 




ENDIF 







• 



• 
# 
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0000 = 

0001 = 

0002 = 

0003 = 

0004 = 

0005 = 

0006 = 

0007 = 

0008 = 

0009 = 
000A = 



IF 


NUM EQ DMORDER 


DW 


DMDST 


END IF 




IF 


NUM EQ MFORDER 


DW 


MFDST 


ENDIF 




ENDM 





************************************************************************* 

* * 

* THE FOLLOING ARE OFFSET NUMBERS OF DEVICE SPECIFICATION TABLES. * 

* * 

************************************************************************* 



D$WBOOT EQU 

D$STRAN EQU 1 

D$SEL1 EQU 2 

D$SEL2 EQU 3 

D$HOME EQU 4 

D$STRK EQU 5 

D?SSEC EQU 6 

D$SDMA EQU 7 

D$READ EQU 8 

D$WRITE EQU 9 

D$BAD EQU 10 



WARM BOOT 

SECTOR TRANSLATION 

DRIVE SELECT, RETURN DPH 

DRIVE SELECT 

HOME DRIVE 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ A PHYSICAL SECTOR 

WRITE A PHYSICAL SECTOR 

RETURN POINTER TO BAD SECTOR INFO 



************************************************************************* 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE ROUTINES * 

* MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE THE SAME. * 

* * 
************************************************************************* 






EA00 



ORG 



BIOS 



EA00 


C3B9F5 




JMP 


CBOOT 


EA03 


C3DCEB 


WBOOTE : 


JMP 
IF 


WBOOT 
CONTYP NE 


EA06 


C3C2EA 


CONST : 


JMP 


CON I ST 


EA09 


C3A5EA 


CIN: 


JMP 


CONIN 


EA0C 


C39EEA 


COUT: 


JMP 
ELSE 


COSTRP 






CONST : 


JMP 


$ 






CIN: 


JMP 


$ 






COUT: 


JMP 
ENDIF 

IF 


$ 

(LSTTYP NE 


EA0F 


C30CEB 


POUT: 


JMP 
ELSE 


LSTOUT 






POUT: 


JMP 
ENDIF 


COUT 



IF 



CONTYP EQ 6 



; CBIOS STARTING ADDRESS 

;COLD BOOT ENTRY POINT 
;WARM BOOT ENTRY POINT 



; CONSOLE STATUS ROUTINE 
; CONSOLE INPUT 
; CONSOLE OUTPUT 

; CONSOLE STATUS ROUTINE PROM POINTfER 
; CONSOLE INPUT PROM POINTER 
; CONSOLE OUTPUT PROM POINTER 



;LIST DEVICE OUTPUT 



;LIST DEVICE OUTPUT 



; NORTH STAR DRIVERS HAVE PUNCH ENTRY POINTS 



m 
m 
m 
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EA12 C30CEA 



EA15 C309EA 



EA18 
EAIB 
EAIE 
EA21 
EA24 
EA27 
EA2A 



C3FFEB 
C31CEC 
C30DEC 
C3F3EB 
C3F9EB 
C31AED 
C311ED 



EA2D C319EB 



EA30 C313EC 



EA33 C3F8EB 
EA36 C30000 



EA39 00 
EA3A 20 
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; PUNCH DEVICE OUTPUT 
;USE CONSOLE l/O ' 



; NORTH STAR DRIVERS HAVE READER ENTRY POINT: 
; READER DEVICE INPUT 



JMP 


PUNOUT 


ELSE 




JMP 


COUT 


END IF 




IF 


CONTYP EQ 6 


JMP 


RDRIN 


ELSE 




JMP 


CIN 


END IF 




JMP 


HOME 


JMP 


SETDRV 


JMP 


SETTRK 


JMP 


SETSEC 


JMP 


SETDMA 


JMP 


READ 


JMP 


WRITE 


IF 


LSTTYP NE 


JMP 


LSTOST 


ELSE 




JMP 


DONOP 


END IF 




JMP 


SECTRAN 



;USE CONSOLE l/O 



;HOME DRIVE 
; SELECT DISK 
;SET TRACK 
;SET SECTOR 
;SET DMA ADDRESS 
.-READ THE DISK 
; WRITE THE DISK 



;LIST DEVICE STATUS 
;LIST DEVICE STATUS 

; SECTOR TRAlvISLATION 



THE FOLLOWING JUMPS ARE EXTENDED BIOS CALLS DEFINED BY MORROW DESIGNS 



IF MAXFD NE 

JMP FDSEL 

ELSE 

JMP DONOP 

END IF 



JMP 







; HOOKUP FOR SINGLE.COM PROGRAM 



;END OF THE JUMP TABLE 



************************************************************************* 
* 

* 



* DRIVE CONFIGURATION TABLE, 
* 



* 
* 



********************* ******************************i,i,i,i,i,i,i,i,i,i,4,^i^i^^^^^^^^^ 



DRCONF: DB 

DB 



32 



; REVISION STRUCTURE 
;32 BYTES LONG NOW 



******************************* *****************iC***i,1,i,1,i,i,i,1,^,^,f,^^^^^^^^,^^^^^ 

* 

* 

* THE FOLLOWING IS THE TABLE OF POINTERS TO THE DEVICE * 

* SPECIFICATION TABLES. THE ORDER OF THIS TABLE DEFINES THE * 

* LOGICAL ORDER OF THE CP/M DRIVES. * 
* 

* 

******************************* ********************i,1,1,1,ici,i,^,^^f,^,^^^^^^^^^^ 



m 
m 

m 
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EA3B = DSTTAB: EQU 



0001 # 



EA3B+12EF 
EA3D+4DF2 



m 
# 
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DN 



DN 



SET 


1 


KEPT 


16 


ORDER 


%DN 


SET 


DN+1 


ENDM 




DW 


HDDST 


DW 


DMDST 



* I/O CONFIGURATION TABLE. 

* AT THIS CBIOS REVISION 11 BYTES ARE DEFINED FOR THIS TABLE. 

* SEVERAL EXTENSIVE CHANGES ARE PLANNED FOR THE TABLE. FUTURE 

* REVISION OF THE lOCONF TABLE WILL HAVE INDEPENDANT ENTRIES FOR 

* THREE SERIAL PORTS AND WILL BE USED BY SEVERAL CHARACTER DRIVERS. 

* ALSO THE lOBYTE WILL BE IMPLEMENTED FOR ALL THE CHARACTER 

* DRIVERS. I MIGHT EVEN WRITE AN EXTERNAL PROGRAM TO EDIT THIS 

* TABLE. 



THE FIRST TWO BYTES SHOW THE l/O CONFIGURATION THAT THE CBIOS WAS 
ASSEMBLED WITH. THESE BYTES ARE USED BY EXTERNAL SOFTWARE TO 
DETERMINE THE CONFIGURATION OPTIONS THAT ARE AVAILABLE. 

THE NEXT BYTE IS THE INITIAL lOBYTE VALUE. THIS VALUE IS WRITTEN 
TO LOCATION 3 ON COLD BOOTS. SEE THE CP/M 2 ALTERNATION GUIDE ' 
FOR A DESCRIPTION OF THE lOBYTE. 

THE NEXT BYTE IS TO MAKE SURE THAT THE GROUP SELECT BYTE ON THE 
MULT I/O OR DECSION I STAYS CONSISTANT THROUGHOUT THE CBIOS. 
ONLY THE GROUP BITS THEMSELVES (BITS AND 1) SHOULD BE CHANGED, 
AS YOU OUTPUT TO THE GROUP PORT. IF YOU MODIFY ONE OF THE OTHER 
BITS (SUCH AS DRIVER-ENABLE) THEN YOU SHOULD MODIFY THE SAME BIT 
IN THIS BYTE. FOR EXAMPLE: 



LDA 
ORI 
OUT 



LDA 
ORI 
STA 
ORI 
OUT 



GROUP 

CONGRP 

GRPSEL 



GROUP 
BANK 
GROUP 
GROUP 2 
GRPSEL 



; SELECT CONSOLE GROUP 
;GET GROUP BYTE 
; SELECT THE CONSOLE PORT 
; SELECT THE GROUP 

."MODIFY A BIT IN THE GROUP BYTE 

;GET GROUP BYTE 

;SET THE BANK BIT 

;SAVE NEW GROUP SETTING 

; SELECT SECOND SERIAL PORT 

; SELECT THE DESIRED GROUP 



NOTE: 



YOU SHOULD NOT SET THE GROUP BITS THEMSELVES IN THE 
GROUP BYTE. 



THE FOLLOWING TWO WORDS DEFINE THE DEFAULT BAUD RATES FOR THE 
CONSOLE AND THE LIST DEVICES. THESE WORDS ARE PROVIDED SO THAT 
THE USER CAN EASILY MODIFY THEM AND THAT THEY WILL ALSO BE USED 



m 
m 



* 

* 
* 
* 
* 
* 

* 
* 
* 
* 

* 

* 

* 
* 

* 

* 

* 

* 
* 
* 

* 
* 

* 
* 



m 
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* IN THE FUTURE BY MORROW DESIGNS SOFTWARE. 
* 

* THE FOLLOWING IS A LIST OF POSSIBLE BAUD RATES AND THE DECIMAL 

* VALUE NEEDED FOR THE DEFCON OR DEFLST WORDS. 



* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

4c 
* 



BAUD RATE 

50 

75 

110 

134. 

150 

300 

600 

1200 

1800 



defcon/deflst 

2304 

1536 

1047 

857 

768 

384 

192 

96 

64 



BAUD RATE 

2000 

2400 

3600 

4800 

7200 

9600 

19200 

38400 

56000 



defcon/deflst 

58 
48 
32 
24 
16 
12 

6 

3 

2 



THE NEXT TWO BYTES ARE UED TO CONFIGURE THE HARDWARE HANDSHAKING 
PROTOCALL USED BY THE SERIAL LIST DRIVERS WITH THE MULTIO OR 
WUNDERBUSS l/O BOARDS. THE FIRST OF THESE TWO BYTES IS A MASK 
THIS MASK IS ANDED WITH THE 8250 'S MODEM STATUS REGISTER TO STRIP 
OUT THE DESIRED HANDSHAKE LINES. NEXT THE RESULT OF THE ANDING 
IS XORED WITH THE SECOND OF THE TWO BYTES. THIS XORING ALLOWS 
THE HAlsfDSHAKE LINES TO BE INVERTED. COMMON BYTE VALUES ARE 
SHOWN BELOW. 



* CTS 

* 
* 



EQU 

DB 

DB 

DB 
DB 

DB 
DB 



10ri 

CTS 


CTS 
CTS 


0FFH 



; CLEAR TO SEND STATUS MASK 

; MORROW DESIGNS 'CLEAR TO SEND' 



.•INVERTED CLEAR TO SEND 



;N0 HANDSHAKING 



* THE LAST BYTE IN THE REVISION ONE STRUCTURE IS THE LAST CHARACTER 
THAT WAS RECIEVED FROM THE PRINTER. THIS BYTE IS USED TO 

* IMPLEMENT XON/XOFF SOFTWARE HANDSHAKING. THIS HANDSHAKING 

* PROTOCOL SHOULD NOT BOTHER PRINTERS THAT HAVE NOT IMPLEMENTED 

* XON/XOFF PROTOCOL SO THIS DRIVER IS ENABLED ALL THE TIME. 

; REVISION 2 STRUCTURE 

;11 BYTES LONG NOW 

; CONSOLE DEVICE DRIVER NUMBER 

;LIST DEVICE DRIVE NUMBER 

;THE INITIAL lOBYTE IS KEPT HERE ' 
?00B ;ALL DEVICES GO TO CON: 

; GROUP BYTE 

; CONSOLE BAUD RATE DIVISOR VALUE 



* 

* 
* 

* 
* 
* 

* 

* 
* 
* 
* 
* 

* 
* 

* 

* 

* 
* 
* 

* 

* 
* 

* 
* 

* 
* 

* 

* 
* 

* 



# 

m 
m 
m 
m 
# 

# 



EA3F 
EA40 
EA41 
EA42 


02 
0B 
02 
03 


lOCONF : 


DB 
DB 
DB 
DB 


2 

11 

CONTYP 
LSTTYP 


EA43 
EA43 


C0 


lOBYT 


EQU 
DB 


$ 
11$00$ 


EA44 
EA45 


00 

0600 


GROUP: 
DEFCON : 


DB 
DW 



CBAUD 



# 
m 
m 
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EA47 6000 DEFLST: DW 

IF 
LSTAND: DB 
LSTXOR: DB 

ENDIF 



CBIOS Revision E for CP/M Version 2.2 - March 4, 1982 
LBAUD ; PRINTER BAUD RATE DIVISOR VALUE 

(LSTTYP NE 3) AND (LSTTYP NE 4) ;X0N/X0FF PROTOCOL 
.-SERIAL LIST HANDSHAKE MASK 

0FFH ; SERIAL LIST INVERSION FLAG 



EA49 10 
EA4A 00 



EA4B 11 



IF 
LSTAND: DB 
LSTXOR: DB 

ENDIF 

IF 
LSTAND: DB 
LSTXOR: DB 

ENDIF 

LASTCH: DB 



LSTTYP EQ 3 

CTS 





LSTTYP EQ 4 

DSR 





XON 



CLEAR TO SEND PROTOCOL 
SERIAL LIST HANDSHAKE MASK 
SERIAL LIST INVERSION FLAG 



;DATA SET READY PROTOCOL 

; SERIAL LIST HANDSHAKE MASK 

; SERIAL LIST INVERSION FLAG 



;LAST CHARACTER RECIEVED FROM THE PRINTER 



m 
m 



************************************************************************* 



# 
• 
• 






* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



THE FOLLOWING TABLE ARE DRIVE PARAMETERS FOR DRIVES CONNECTED TO 
THE DJDMA FLOPPY DISK CONTROLLER. THERE IS ONE ENTRY FOR EACH OF 
THE THE EIGHT DRIVE THAT THE CONTROLLER CAN ADDRESS. THE FIRST 
FOUR ENTRIES ARE FOR THE 8 INCH DRIVES AND THE LAST FOUR ARE FOR 
THE 5 1/4 INCH DRIVES. USERS WITH FAST STEPPING 8 INCH DRIVES 
(SA850/1) OR SLOW 5 1/4 INCH DRIVES (SA400) SHOULD ADJUST THIS ; 
TABLE FOR OPTIMAL DEVICE PERFORMACE . i 



EACH TABLE ENTRY CONTAINS FOUR FIXED LENGTH FIELDS. 
ARE DEFINED AS FOLLOWS: 



THE FIELDS 



TRACKS THIS BYTE CONTAINS THE NUMBER OF TRACKS ON THE 
DRIVE. MOST 8 INCH DRIVES HAVE 77 TRACKS AND 
MOST 5 1/4 INCH DRIVES HAVE 35 OR 40 TRACKS. 

CONFIG THIS A A FLAG BYTE THAT INDICATES AS TO WHETHER 

OR NOT THIS DRIVE HAS BEEN CONFIGURED. SET TO I 
TO FORCE RECONFIGURATION. 

STEP THIS WORD CONTAINS THE STEPPING RATE CONSTANT. 

THE DJDMA' S DELAY ROUTINES TICK 34.1 TIMES PER i 
MILLISECOND. THUS THE STEP CONSTANT WOULD BE THE 
DRIVE MANUFACTORS RECOMENDED STEPPING DELAY TIMES 
34.1. EXAMPLE. SHUGART SA 850 'S STEP AT 3 
MILLISEOND INTERVALS. THE STEP CONSTANT WOULD BE 
3 * 43.1 OR 102. 

RFU THE NEXT TWO WORDS ARE RESERVED FOR FUTURE USE. 
THEY MUST BE ZERO. 

SETTLE THIS WORD IS SIMILAR TO THE PREVIOUSLY DEFINED 

STEP WORD. THIS SPECIFIES THE HEAD SETTLE TIMING 
AFTER THE HEADS HAVE BEEN STEPPED. EXAMPLE, 
SHUGART' S SA 850 HEAD SETTLE TIME IS 15 
MILLISECONDS. THE SETTLE CONSTANT WOULD BE 15 * 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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* 34.1 OR 512. 

* AN ASSEMBLER MACRO (DCONF) HAS BEEN PROVIDED TO ASSIST IN 

* GENERATING THE DPARAM TABLE. THIS MACROS PARAMETERS ARE THE 

* NUMBER OF TRACKS, THE STEP RATE IN MILLISECONDS, AND THE HEAD 

* SETTLE TIME IN MILLISECONDS. FOR EXAMPLE: 
* 

* 



DCONF 



77, 3, 15 



DCONF 



35, 40, 10 



rSHUGART SA 850 ; 

;77 TRACKS, 3 MS STEP, 15 MS SETTLE 

;SHUGART SA 400 

;35 TRACKS, 40 MS STEP, 10 MS SETTLE 



* 
* 
* 

* 

* NOTE: CAUTION SHOULD BE USED WHEN DEFINING THE DRIVE PARAMETERS* 

* INCORRECT DEFINATIONS MAY DAMAGE THE FLOPPY DISK DRIVE. MORROW 

* DESIGNS TAKES NO RESPONSIBILITY FOR DAMAGE THAT OCCURES THROUGH 

* THE MISUSE OF THIS MACRO. 
* 



* 
* 
* 
* 

* 
* 

* 
* 

* 
* 
* 
* 

* 
* 

* 






IF 



(MAXDM NE 0) OR (MAXMF NE 0) ;DJDMA PRESENT? 





DCONF 


MACRO 


TRACKS, STEP, SETTLE 






DB 


TRACKS 






DB 









DW 


STEP*341/10 






DW 









DW 









DW 


SETTLE*341/10 






ENDM 




EA4C 0050 


DMARAP : 


DB 


0, 10*8 


EA4E = 


DPARAM: 


EQU 


$ 



; NUMBER OF TRACKS 

; RESET THE CALIBRATED FLAG 

;STEP TIME 

; RESERVED FOR FUTURE USE, MUST BE ZERO 

; RESERVED FOR FUTURE USE, ; MUST BE ZERO 

;HEAD SETTLE TIME 



; REVISION 0, LENGTH 80 BYTES 

I 

; DRIVE PARAMETER TABLE ; 

* * 

* DEFINE 8 INCH DRIVE PARAMETERS * 

* USE SA800 PARAMETERS: 77 TRACKS, 8 MS STEP, 8 MS SETTLE * 

* * 

it************************************************************************ 



EA4E+4D 

EA4F+00 

EA50+1001 

EA52+0000 

EA54+0000 

EA56+1001 

EA58+4D 

EA59+00 

EA5A+1001 

EA5C+0000 

EA5E+0000 

EA60+1001 



DCONF 


77, 8, 8 


DB 


77 


DB 





DW 


8*341/10 


DW 





DW 





DW 


8*341/10 


DCONF 


77, 8, 8 


DB 


77 


DB 





DW 


8*341/10 


DW 





DW 





DW 


8*341/10 



DRIVE 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAG 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE ZERO 

RESERVED FOR FUTURE USE, MUST BE ZERO 

HEAD SETTLE TIME 

DRIVE 1 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLA(3 

STEP TIME 

RESERVED FOR FUTURE USE, ; MUST BE ZERO 

RESERVED FOR FUTURE USE, MUST BE ZERO 

HEAD SETTLE TIME 



m 



CBIOS Revision E for CP/M Version 2.2 - March 4, 1982 

DRIVE 2 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAO 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE ZERO 

RESERVED FOR FUTURE USE, MUST BE ZERO 

HEAD SETTLE TIME 

DRIVE 3 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAG 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE ZERO 

RESERVED FOR FUTURE USE, MUST BE ZERO 

HEAD SETTLE TIME 

*****************************************************************!fr******* 

* * 

* DEFINE 5 1/4 INCH DRIVE PARAMETERS * 

* USE TANDON PARAMETERS: 40 TRACKS, 5 MS STEP, 15 MS SETTLE * 

* * 
************************************************************************* 



CP/M MACRO ASSEM 2.0 


#015 


CBIOS Re 




DCONF 


77, 8, 8 


EA62+4D 


DB 


77 


EA63+00 


DB 





EA64+1001 


DW 


8*341/10 


EA66+0000 


DW 





EA68+0000 


DW 





EA6A+1001 


DW 


8*341/10 




DCONF 


77, a, 8 


EA6C+4D 


DB 


77 


EA6D+00 


DB 





EA6E+1001 


DW 


8*341/10 


EA70+0000 


DW 





EA72+0000 


DW 





EA74+1001 


DW 


8*341/10 



m 






EA76+28 

EA77+00 

EA78+AA00 

EA7A+0000 

EA7C+0000 

EA7E+FF01 

EA80+28 

EASl+00 

EA82+AA00 

EA84+0000 

EA86+0000 

EA88+FF01 

EA8A+28 

EA8B+00 

EA8C+AA00 

EA8E+0000 

EA90+0000 

EA92+FF01 

EA94+28 

EA95+00 

EA96+AA00 

EA98+0000 

EA9A+0000 

EA9C+FF01 



DRIVE 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAG 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE 

RESERVED FOR FUTURE USE, MUST BE 

HEAD SETTLE TIME 

DRIVE 1 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAG 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE 

RESERVED FOR FUTURE USE, MUST BE 

HEAD SETTLE TIME 

DRIVE 2 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAG 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE 

RESERVED FOR FUTURE USE, MUST BE 

HEAD SETTLE TIME 

DRIVE 3 

NUMBER OF TRACKS 

RESET THE CALIBRATED FLAG 

STEP TIME 

RESERVED FOR FUTURE USE, MUST BE 

RESERVED FOR FUTURE USE, | MUST BE 

HEAD SETTLE TIME 



************************************************************************* 

* * 

* CONSOLE DRIVER ROUTINES. * 



DCONF 


40, 5, 15 


DB 


40 


DB 





DW 


5*341/10 


DW 





DW 





DW 


15*341/10 


DCONF 


40, 5, 15 


DB 


40 


DB 





DW 


5*341/10 


DW 





DW 





DW 


15*341/10 


DCONF 


40, 5, 15 


DB 


40 


DB 





DW 


5*341/10 


DW 





DW 





DW 


15*341/10 


DCONF 


40, 5, 15 


DB 


40 


DB 





DW 


5*341/10 


DW 





DW 





DW 


15*341/10 


END IF 





ZERO 
ZERO 



ZERO 
ZERO 



ZERO 
ZERO 



ZERO 
ZERO 



• 
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* 

* ROUTINE USED DEPENDS ON THE VALUE OF CONTYP . POSSIBLE CONTYP 

* VALUES ARE LISTED AS FOLLO\"?S: 



* CONTYP IS: 
* 



* 
* 

* 

NOTHING, USED FOR PATCHING TO PROM'S * 

1 PROVIDE FOR 128 BYTES OF PATCH SPACE * 

2 MULTI I/O OR DECISION I DRIVER * 

3 2D/B DRIVER * 

4 DJDMA SERIAL PORT * 

5 SWITCHBOARD SERIAL PORT * 

6 NORTH STAR MOTHERBOARD (2 SERIAL + 1 PARALLEL) * 

* 

************************************************************************* 

************************************************************************* 

* * 

* THIS ROUTINE IS AN EXPERIMENT TO REDUCE MISSED AND GARBLED * 

* CHARACTERS ON CONSOLE OUTPUT. * 

* * 
************************************************************************* 



* 
* 
* 

* 
* 

* 



IF 



CONTYP NE 



EA9E 


79 


COSTRP: MOV 


A,C 


EA9F 


E67F 


ANI 


7FH 


EAAl 


4F 


MOV 


C,A 


E7y^2 


C3B4EA 


JMP 


CONOUT 



; STRIP PARITY ON CONOUT 



FFFF = 



0048 
004F 
0048 
0049 
0049 
004A 
004B 
004C 
004D 
004E 
0048 
0048 
0080 
0020 
0010 
0020 



ENDIF 

***************************************************************** 

* * 

* THE FOLOWING EQUATES WILL DEFINE THE DECISION I MOTHER * 

* BOARD I/O OR THE MULTI l/O ENVIRONMENTS IF NEEDED. * 

* * 
***************************************************************** 



(CONTYP EQ 2) OR (LSTTYP GE 2) ;MULTI l/O BOARD USED? 



MULT 10 


EQU 




IF 


MBASE 


EQU 


GRPSEL 


EQU 


DLL 


EQU 


DLM 


EQU 


lER 


EQU 


CLK 


EQU 


LCR 


EQU 


MCR 


EQU 


LSR 


EQU 


MSR 


EQU 


RBR 


EQU 


THR 


EQU 


DLAB 


EQU 


THRE 


EQU 


CTS 


EQU 


DSR 


EQU 



MULT 10 

48H 

MBASE+7 

MBASE 

MBASE+1 

MBASE+1 

MBASE+2 

MBASE+3 

MBASE+4 

MBASE+5 

MBASE+6 

MBASE 

MBASE 

B0H 

20H 

10H 

20H 



; DEFINE MULTI l/O ENVIRONMENT 

;BASE ADDRESS OF MULTI l/O OR DECISION I 

; GROUP SELECT PORT 

;DIVISOR (LSB) 

; DIVISOR (MSB) 

rINTERUPT ENABLE REGISTER 

;WB14 PRINTER SELECT PORT 

;LINE CONTROL REGISTER 

;LINE STATUS REGISTER 

;READ DATA BUFFER 
;TRANMITTER DATA BUFFER 
; DIVISOR LATCH ACCESS BIT 
; STATUS LINE THRE BIT 
; CLEAR TO SEND 
;DATA SET READY 






m 
m 
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# 



# 



# 
• 



0001 = 


DR 


EQU 


1 


0001 = 


WLS0 


EQU 


1 


0002 = 


WLSl 


EQU 


2 


0004 = 


STB 


EQU 


4 



0001 

0002 
0004 
0008 
0010 
0020 
0040 
0080 



1020 
0810 
2040 



0001 
0002 
0004 
0008 

0010 
0020 
0040 
0080 



0040 
0080 



LINE STATUS DR BIT 

WORD LENGTH SELECT BIT 

WORD LENGTH SELECT BIT 1 FOR 8 BIT WORD 

STOP BIT COUNT - 2 STOP BITS 



DEFINE MULTI l/O PORTS ADDRESSES FOR GROUP ZERO 

; DAISY INPUT PORTS 
; SENSE SWITCHES 



0000 


= 


GZERO 


EQU 





0048 


= 


DAISY0 


EQU 


MBASE 


0049 


= 


DAISYl 


EQU 


MBASE+1 


0049 




SENSESW 


EQU 
IF 


MBASE+1 
MULTR3 EQ 


0048 


= 


DAISI0 


EQU 


MBASE 


0049 


^ 


DAISIl 


EQU 
ELSE 


MBASE+1 






DAIS 10 


EQU 


MBASE+1 






DAISIl 


EQU 
ENDIF 


MBASE 



# 



DAISY OUTPUT PORTS ARE DIFFERENT 
FOR DECISION I AND MULTI l/O. 
THESE TWO ARE THE DECISION I POR^S 

I 

AND THESE ARE THE MULTI l/O'S. 



; DEFINE DAISY STATUS INPUT BITS 



;END OF RIBBON 

; PAPER OUT 

; COVER OPEN 

; PAPER FEED READY 

.•CARRIAGE READY 

; PRINT WHEEL READY 

; PRINTER CHECK (ERROR) 

; PRINTER READY 



DEFINE DAISY STATUS INPUT BITS FOR DIABLO HYTYPE II DRIVER 



RIBBON 


EQU 


01H 


PAPER 


EQU 


02H 


COVER 


EQU 


04H 


PFRDY 


EQU 


08H 


CRRDY 


EQU 


10H 


PWRDY 


EQU 


20H 


CHECK 


EQU 


40H 


READY 


EQU 


80H 






CRSTRD 


EQU 


1020H 


PFSTRD 


EQU 


810H 


PWSTRD 


EQU 


2040H 



; DEFINE DAISY OUTPUT BITS 



D9 


EQU 


01H 


D10 


EQU 


02H 


Dll 


EQU 


04H 


D12 


EQU 


08H 


PFSTB 


EQU 


10H 


CRSTB 


EQU 


20H 


PWSTB 


EQU 


40H 


REST 


EQU 


30H 



; CARRIAGE READY 
; PAPER FEED READY 
; PRINT WHEEL READY 



;DATA BIT 9 
iDATA BIT 10 
;DATA BIT 11 
;DATA BIT 12 



; DEFINE CLOCK SELECT BITS 

RLIFT EQU 40H 
PS ELECT EQU 80H 



PAPER FEED STROBE 

CARRIAGE STROBE 

PRINT WHEEL STROBE 

PRINTER RESTORE (RIBBON LIFT ON f^lULTI l/O) 



; RIBBON LIFT 

; SELECT (NOT USED BY DIABLO) 



DEFINE MODEM CONTROL REGISTER BITS 
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0001 = 

0002 = 



0001 

0002 
0003 
0004 
0008 
0010 
0020 



000 A 
0006 
0073 
0030 
00A0 
0400 
0630 
006E 
0000 



DTRENB EQU 
RTSENB EQU 



1 
2 



7 DEFINE GROUP SELECT BITS 



S0 

81 

SMASK 

BANK 

ENINT 



EQU 
EQU 
EQU 
EQU 
EQU 



RESTOR EQU 
DENABLE EQU 



01H 

02H 
03H 
04H 
08H 
10H 
20H 



;DTR ENABLE 
7RTS ENABLE 



.•GROUP NUMBER (0-3) 



; PRINTER RESTORE ON MULTI l/O 
; DRIVER ENABLE ON MULTI l/O 



m 
# 
m 



DEFINE SPECIAL CONSTANTS FOR THE HYTYP II DRIVER 



CPERI 


EQU 


10 


LPERI 


EQU 


6 


HINC 


EQU 


120 


VINC 


EQU 


48 


NUMTABS 


EQU 


160 


MAXCHRS 


EQU 


1024 


MAXRGT 


EQU 


1584 


DFRMLN 


EQU 


110 


AUTOLF 


EQU 






; DEFAULT TO 10 CHARACTERS PER INCH 

; DEFAULT LINES PER INCH 

; HORIZONTAL INCREMENTS PER INCH 

; VERTICAL INCREMENTS PER INCH 

.•NUMBER OF HORIZONTAL TABS 

.•MAXIMUM NUMBER OF PRINTER CHARACTERS TO QUEUE 

; MAXIMUM CARRIAGE POSITION 

; FORMS LENGTH TIMES 10 

; DEFAULT TO NOIAUTO LINE FEED 



END IF 



***************** ******-k*lc*lc****1c**ic* ************ **************** 

* 

* 

* CONTYP: 2 MULTI l/O OR DECISION I CONSOLE DRIVER * 

* 

***************************************************************** 



m 
m 
m 
m 
m 
m 



IF 



CONTYP EQ 2 



************ ******************************************^,i,i,^,i,^,^,^,^^^^^^^^^^^ 

* 

* 

* THIS DRIVER ON COLD BOOT WILL INSPECT BITS 1-3 OF THE SENSE 

* SWITCHES. IF THE VALUE FOUND IS IN THE RANGE 0-6 THEN THE 

* CONSOLE BAUD RATE WILL BE TAKEN FROM THE RATE TABLE. OTHERWISE 

* THE BAUD RATE WILL BE SET FROM THE DEFCON WORD WHICH IS FOUND 

* JUST BELOW THE REGULAR CBIOS JUMP TABLE. THE STANDARD DIVISOR 

* TABLE IS GIVEN BELOW. 



* SENSE SWITCH: 123 (0 = OFF. 1 = ON) 

* 000 = 110 

* 001 = 300 

* 010 = 1200 

* 011 = 2400 

* 100 = 4800 

* 101 = 9600 

* 110 = 19200 

* DEFCON = 9600 
* 

* NOTE: IF YOU ARE USING A MULTIO THEN THE SWITCHES WILL NOT BE 

* AVAILABLE SO THE BAUD RATE WILL BE TAKEN FROM DEFCON. 



* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



m 
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* * 
************************************************************************* 

************************************************************************* 

* * 

* DUE TO ITS LENGTH, THE TTYSET ROUTINE DRIVER IS BELOW THE CBOOT * 

* CBOOT ROUTINE. * 

* i .* 
*****************************************************************^******* 

***************************************************************** 

* * 

* READ A CHARACTER FROM THE SERIAL PORT . * 

* * 

***************************************************************** 



EAA5 CDD3EA 



CONIN: CALL SELCON 



; SELECT CONSOLE 



EAA8 DB4D 


CON INI: 


IN 


LSR 


EAAA E601 




AN I 


DR 


EAAC CAA8EA 




JZ 


CON INI 


EAAF DB48 




IN 


RBR 


EABl E67F 




AN I 


7FH 


EAB3 C9 




RET 





;READ STATUS REGISTER 
;WAIT TILL CHARACTER READY 

;READ CHARACTER 
.-STRIP PARITY 



***************************************************************** 

* * 

* OUTPUT A CHARACTER TO SERIAL PORT. * 

* * 

***************************************************************** 



EAB4 CDD3EA 



CONOUT: CALL SELCON 



EAB7 DB4D 


CONOUT 1 


:IN 


LSR 


EAB9 E620 




ANI 


THRE 


EABB CAB7EA 




JZ 


CONOUTl 


EABE 79 




MOV 


A,C 


EABF D348 




OUT 


THR 


EACl C9 




RET 





.•SELECT CONSOLE 

;READ STATUS 

.•WAIT TILL TRANSMITTER BUFFER EMPTY 

.•CHARACTER IS IN (C) 

; OUTPUT TO TRANSMITTER BUFFER 






***************************************************************** 

* * 

* RETURN SERIAL PORT STATUS. RETURNS ZERO IF CHARACTER IS NOT * 

* READY TO BE READ. ELSE RETURNS 255 IF READY. * 

* * 
***************************************************************** 



EAC2 CDD3EA 

EAC5 DB4D 
EAC7 E601 
EAC9 CB 
EACA 3EFF 
EACC C9 



CALL 


SELCON 


IN 


LSR 


ANI 


DR 


RZ 




MVI 


A,0FFH 


RET 





END IF 



.•SELECT CONSOLE 

.-READ STATUS REGISTER 

;N0 CHARACTTER READY 
; CHARACTER READY 

;MULTI l/O OR DECISION I 



• 
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* CONTYP: 3 2DB CONSOLE DRIVER * 



m 
m 



m 
m 



IF 

CONOUT: JMP 

CONIN: JMP 

CONIST: CALL 
MVI 
RZ 
INR 
RET 

END IF 



CONTYP EQ 3 

FDCOUT 

FDCIN 

FDTSTAT 
A,0FFH 

A 



; CONSOLE OUTPUT 
/•CONSOLE INPUT 
.•CONSOLE STATUS 



;2DB 



* CONTYP: 4 * 

* 



DJDMA CONSOLE DRIVER 



********-*************************.,*.,.^,,,,,^,,,,,,,^^^^^^^^^^l 



IF 
CONOUT: LXI 
MVI 
INX 
MOV 
JMP 

CONIN: LXI 
XRA 

CI2: CMP 
JZ 
MOV 
OCX 
MVI 
ANA 
RET 

CONIST: LDA 
ORA 
RZ 
MVI 
RET 
ENDIF 



CONTYP EQ 4 

H,DMCHAN 

M,SEROUT 

H 

M,C 

DOCMD 

H, SERIN+1 

A 

M 

CI2 

M,A 

H 

A, 7FH 

M 



SERIN+1 
A 

A, 0FFH 



/•COMMAND FOR SERIAL OUTPUT 

; SERIAL INPUT STATUS 

;WAIT TILL 40H DEPOSITED AT 3FH 

7 CLEAR STATUS 

; POINT TO INPUT DATA 

;FOR MASKING OUT PARITY 

;PICK UP SERIAL INPUT STATUS 

;IF ZERO THEN NO CHARACTER READY 
;SET CHARACTER READY 



********************,,**,,,,^,,,^,,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



* CONTYP: 5 



SWITCHBOARD AS SERIAL CONSOLE 



******************.*,,,,,,.,,,,,,,,,,,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^* 
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IF 
SWBASE EQU 

CONIST: IN 
AMI 
RZ 
MVI 

TTYSET : RET 



COKIN: 



IN 

ANI 

JZ 

IN 

ANI 

RET 



CONOUT ; IN 
ANI 
JZ 
MOV 
OUT 
RET 



CONTYP EQ 5 



SWBASE+2 
4 

A. 0FFH 

SWBASE+2 

4 

CON IN 

SWBASE 

7FH 



SWBASE+2 

8 

CONOUT 

A,C 

SWBASE 



;BASE OF THE SWITCHBOARD , 

;GET THE FIRST PORTS STATUS 
;MASK THE DATA READY BITSJ 
; RETURN CONSOLE NOT READY 

;NULL TERMINAL INITIALIZATION 

;GET SWITCHBOARD STATUS 
;TEST FOR DATA READY 

;GET A CHARACTER 
; STRIP OFF PARITY 



; CHECK STATUS 

;WAIT TILL OUTPUT BUFFER |;MPTY 

; WRITE A CHARACTER '; 



END IF 



* * 

* MULTIO/WNDERBUSS GROUP SELECT ROUTINES ^ 



IF (CONTYP EQ 2) OR (LSTTYP GE 2) 



yNEED GROUP SELECt ROUTINES? 



p 


EACD 3A44EA 
EAD0 D34F 
EAD2 C9 


SELG0 : 


LDA 
OUT 

RET 


GROUP 
GRPSEL 




EAD3 3A44EA 
EAD6 F601 
EAD8 D34F 
EADA C9 


SELCON : 


LDA 
ORI 
OUT 
RET 


GROUP 

CONGRP 

GRPSEL 


• 


EADB 3A44EA 
EADE F602 
EAE0 D34F 
EAE2 C9 


SELRDR: 


LDA 
ORI 
OUT 
RET 


GROUP 

5-LSTGRP 

GRPSEL 


m 


EAE3 3A44EA 
EAE6 F603 
EAE8 D34F 
EAEA C9 


SELLST : 


LDA 
ORI 
OUT 
RET 


GROUP 

LSTGRP 

GRPSEL 






END IF 




m 











; SELECT GROUP ZERO 



; SELECT CONSOLE GROUP 



; SELECT READER/PUNCH GROUP 
;USE 'OTHER' SERIAL PORT 



; SELECT PRINTER GROUP 



# 
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* * 

* THE F0LL0V7ING BYTE DETEEIMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 



* = NEVER GIVE COMMAND. 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 



* 
* 
* 

_ * 

* ~ * 

************** *****ie1c*****************************ie************** 



EAEB 00 
EAEC 14 

EAED 00 



AUTOST: DB ; REVISION STRUCTURE 

DB 100H - (LOW §) ;THE REST OF THE PAGE IS USED FOR THIS STUFF 



AUTOFLG : DB 







;AUTO COMMAND FEATURE ENABLE FLAG 



EAEE F2EA 
EAF0 F3EA 



COLDMES:DW 
WARMES: DW 



COLDCM 
WARMCM 



; POINTER TO THE COLD START COMMAND 
; POINTER TO THE WARiyl START COMMAND 



********************************************************ie*****ie** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE PASSED TO THE * 

* CCP IF THE AUTO FEATURE IS ENABLED. FOR EXAMPLE: * 

* * 

* COLDCM: DB COLDEND-COLDCM * 



DB 
COLDEND EQU 



COLDEND-COLDCM 
'MBASIC MYPROG' 



* 
* 



* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. NOTE: THE COMMAND LINE MUST BE IN * 

* UPPER CASE FOR MOST COMMANDS. * 

* * 
***************************************************************** 



# 

m 
# 






EAF2 01 
EAF3 = 
EAF3 01 
EAF4 = 



COLDCM: DB 
DB 
COLDEND EQU 

WARMCM: DB 
DB 

WARMEND EQU 



COLDEND-COLDCM 



WARMEND-WARMCM 



; LENGTH OF COLD BOOT COMMAND 
;COLD BOOT COMMAND GOES HERE 



; LENGTH OF WARM BOOT COMMAND 
;WARM BOOT COMMAND GOES HERE 



***********************************************************1c1,1e**ie****ieieic* 

* 

* AT THE FIRST PAGE BOUNDRY FOLLOWING THE CBIOS WE HAVE A SERIES 6F 

* POINTERS THAT POINT TO VARIOUS INTERNAL TABLES. AT THE START OF 

* EACH OF THESE TABLES WE HAVE A REVISION BYTE AND A LENGTH BYTE. 

* THE REVISION BYTE IS THE CURRENT REVISION NUMBER FOR THAT 

* PARTICULAR STRUCTURE AND THE LENGTH BYTE IS THE LENGTH OF THAT 

* STRUCTURE. THIS LENGTH DOES NOT INCLUDE THE REVISION BYTE NOR 

* THE LENGTH BYTE ITSELF. 

4c 



* 
* 



REVISION 

E.0 



DESCRIPTION 

1 AND 2 DEFINED 



* 
* 

* 
* 
* 
* 

* 
* 



m 
m 

m 
m 
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THIS TABLE IS MOVED TO A PAGE BOUNDRY 
0, 3 AND 4 DEFINED 



* 
* 

* THE POINTERS DEFINED SO FAR ARE AS FOLLOWS: 

* 0) 
* 

* 

* 

* 1) 
* 

* 2) 
* 

* 3) 
* 

* 

* 4) 

* 5) 
* 

* 



HIGH BYTE IS THE PAGE NUMBER OF THE CBIOS. LOW BYTE IS ' 
THE CBIOS REVISION NUMBER. USED TO DETERMINE POINTER ! 
STRUCTURE . 

THIS POINTS TO THE DRIVE CONFIGURATION TABLE. 

THIS POINTS TO THE l/O CONFIGURATION BYTES FOR THE SERIAL 
DRIVERS. EG, THE CONSOLE, PRINTER, READER, AND PUNCH 
DEVICES . 

THIS POINTS TO THE DRIVE PARAMETER TABLE FOR DJDMA FLOPPY 
DISK DRIVES. IF NO DJDMA IS PRESENT THEN THIS POINTER IS 
NULL (0). 

THIS POINTS TO THE AUTOSTART COMMAND STRUCTURES. USED TO 
AUTOMATICALLY INVOKE A COMMAND ON COLD OR WARf-l BOOT 

THIS WILL BE A NULL (0) POINTER. IT MARKS THE END OF THE 
TABLE . 



* 
* 

* 
* 
* 

* 

* 

* 
* 

* 

* 
* 
* 
* 
* 
* 



# 



************************************************************************* 



EAF4 



IF $ GT BIOS+256 ;TEST FOR CODE OVERLAP 

'Fatal error, pointer table placement.' 

ELSE 

DS BIOS+256-$ ; START AT A PAGE BOUNDRY 

ENDIF 



EB00 EA 
EB01 35 
EB02 39EA 
EB04 3FEA 

EB06 4CEA 



EB08 EBEA 
EB0A 0000 



DB 

DB 

DW 

DW 

IF 

DW 

ELSE 

DW 

ENDIF 

DW 

DW 



HIGH ($-1) ; CBIOS PAGE NUMBER 

REVNUM ; CBIOS REVISION NUMBER 

DRCONF ; DRIVE CONFIGURATION TABLE POINTED 

lOCONF ;l/0 CONFIGURATION TABLE POINTER i 

(MAXDM NE 0) OR (MAXMF NE 0) ; DJDMA PRESENT? 

DMARAP ; DRIVE PARAMETER TABLE POINTER 





AUTOST 




;AUTO COMMAND STRUCTURE POINTER 
;END OF TABLE MARKER 



********************************4r**4r*****************************^******* 



* THE FOLLOWING CODE PERFORMS THE MAPPING OF LOGICAL TO PHYSICAL 

* SERIAL I/O DEVICES. THE PHYSICAL ENTRY POINTS ARE CONIN, CONOUT, 

* CONIST, RDRIN, PUNOUT, LSTOUT, AND LSTOST . THESE ENTRY POINTS 

* ARE MAPPED VIA THE INTEL STANDARD l/O BYTE (lOBYTE) AT LOCATION 3 

* IN THE BASE PAGE TO THE LOW LEVEL DEVICE DRIVERS. 
* 

* NOTE: A NAMING CONVENTION HAS BEEN CHOSEN TO REDUCE LABEL 

* COLISIONS. THE FIRST THREE CHARACTERS OF A NAME INDICATE THE 

* DEVICE DRIVERS NAME, THE FOLLOWING THREE CHARACTERS INDICATED THE 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



m 
m 
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* FUNCTION PERFORMED BY THAT PARTICULAR DEVICE ROUTINE. THE DEVICE 

* NAMES ARE DEFINED AND DESCRIBED IN THE "AN INTRODUCTION TO CP/M 

* FEATURES AND FACILITIES" MANUAL IN THE SECTION ON THE STAT 

* COMMAND AND IN THE "CP/M INTERFACE GUIDE" IN THE lOBYTE SECTIONS 

* THE DEVICE FUNCTION POSTFIXES ARE AS FOLLOWS. 



DEVSET INITIAL DEVICE SETUP AND INITIALZATION 

DEVIN READ ONE CHARACTER FROM THE DEVICE 

DEVOUT WRITE ONE CHARACTER TO THE DEVICE 

DEVI ST RETURN THE DEVICE CHARACTER INPUT READY STATUS 

DEVOST RETURN THE DEVICE CHARACTER OUTPUT READY STATUS 



* THE SETUP ROUTINE INITIALIZES THE DEVICE AND RETURNS. THE INPU-t 

* ROUTINE RETURNS ONE CHARACTER IN THE A REGISTER (PARITY RESET). 

* THE OUTPUT ROUTINE WRITE ONE CHARACTER FROM THE C REGISTER. THE 

* INPUT STATUS ROUTINE RETURNS IN THE A REGISTER A IF THE DEVICE 

* DOES NOT HAVE A CHARACTER READY FOR INPUT FOR 0FFH IF A CHARACTER 

* IS READY FOR INPUT. THE OUTPUT STATUS ROUTINE RETURNS IN THE A 

* REGISTER A IF THE DEVICE IS NOT READY ACCEPT A CHARACTER AND A 

* 0FFH IF THE DEVICE IS READY. THE INPUT AND OUTPUT ROUTINES 

* SHOULD WAIT UNTILL THE DEVICE IS READY FOR THE DESIRED OPERATION 

* BEFORE THE DOING THE OPERATION AND RETURNING. 



* NOT ALL OF THESE FUNCTIONS NEED TO BE 

* DEVICES. THE FOLLOWING IS A TABLE OF 

* EACH DEVICE HANDLER. 



IMPLEMENTED FOR ALL THE \ 
THE ENTRY POINTS NEEDED FpR 



DEVICE 

NAME 

CON: 
RDR: 
PUN: 
LST: 

TTY: 
CRT: 
UCl: 

PTR: 
URl: 
UR2: 

PTP: 
UPl: 
UP 2: 

LPT: 
ULl: 



SETUP INPUT OUTPUT 



INPUT OUTPUT 
STATUS STATUS 



TTYSET 
CRTSET 
UCISET 

PTRSET 
URISET 
UR2SET 

PTPSET 
UPISET 
UP2SET 

LPTSET 
ULl SET 



CONIN 
RDRIN 



TTYIN 
CRT IN 
UCIIN 

PTRIN 
URl IN 
UR2IN 



CONOUT 

PUNOUT 
LSTOUT 

TTYOUT 
CRTOUT 
UCl OUT 



CONIST 
RDRIST 



LSTOST 



* 
* 

* 
* 
* 

* 
* 

* 

* 

* 

* 
* 

* 
* 

* THE CONIN, CONOUT, CONIST, RDRiN, RDRIST, PUNOUT, LSTOUT, AND 

* LSTOST ROUTINES ARE THE LOGICAL DEVICE DRIVER ENTRY POINTS 

* PROVIDED BY THIS DEVICE MAPPER. THE OTHER ENTRY NAMES MUST BE 

* PROVIDED BY THE PHYSICAL DEVICE DRIVERS. 



TTYIST TTYOST 
CRTIST CRTOST 
UCIIST 

PTRIST 
URIIST 
UR2IST 



PTPOUT 
UPIOUT 
UP20UT 

LPTOUT 
ULIOUT 



LPTOST 
ULIOST 



******************************************** 



************************ 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
***** 



m 
m 
m 



m 
m 



# 
# 



sniiVis indino isn^ 



XXXXXXTT 
XXXXXX0T 
XXXXXXT0 
XXXXXX00 
0TZ£^S9L 



Tin = :,IST' 

I-dT = :i,ST.' 

AJLi = :j,ST.' 
• aJiASOI 



# 



XXXXTTXX 




'Zdn 


= SNnd-' 


XXXX0TXX 




■ Ida 


= ^Nfld-' 


XXXXT0XX 




:dj.d 


= '-Nnai 


XXXX00XX 




•Rll, 


= ^Nnd^ 


0TZ£P99L 


•• aiAHOI 






j.ndino HDNnd-' 


XXTTXXXX 




znn 


= :aaH.' 


XX0TXXXX 




THfl 


= -HQH-' 


XXT0XXXX 




HJ.d 


= SHaH' 


XX00XXXX 




AJ.I, 


= v^QH-' 



0T2et'S9z. :aj,Aaoi 



XXTTXXXX 


'-Z'sn 


= saan-' 


XX0TXXXX 


'THn 


= inaa-' 


XXT0XXXX 


'Hid 


= SHOH.' 


XX00XXXX 


JAJLJ, 


= saaa-' 


0lZ£l7£9L 


:aiA90I 






ifldNI 


Haavaa - 


TTXXXXXX 


5 Ton 


= SHOD' 


0TXXXXXX 


5I.VH 


= 'RODi 


T0XXXXXX 


:iHD 


= I NOD-' 


00XXXXXX 


SAil, 


= SNOD-' 



0TZ£P99L saixaoi 

snivis j,ndNi aqosNOD-' 



TTXXXXXX 


JTOn = I NOD.' 


0TXXXXXX 


sj-Va = I NOD-' 


T0XXXXXX 


5XHD = SNOD- 


00XXXXXX 


SAii = "NOD- 


0TZt^S9L 


5 autaoi 




i.ndj:,no aqosNoo- 


TTXXXXXX 


STOn = SNOD- 


0TXXXXXX 


5I.V9 = :nOD' 


T0XXXXXX 


5I.HD = IN0D-' 


00XXXXXX 


J Ail, = INOD- 


©Tset'Sgz. 


! 3J.AaOI 




indNi aiosKOD-' 






Moiqoj oi saaAiaa Han-io -saaAiHa 
HYiiS HiHON Ho,a; aaxNawaidwi aj.Ae o/i-' 



E-a 


lAW 


5j:.soi,st 


e0aT 


eraa 


inoia 


Ma 




aaas 


iiaa 


inoia 


Ma 




aaas 


STaa 


inono 


Ma 




aazf 


ETSa 


i-noMo 


MO 




niz^ 


TTSa 


Hiaan 


aiYD 




939203 


3093 


e'a 


lAW 

aiQNa 


-■LnOlST 


eeaT 


D0aa 


inozdn 


Ma 








inoTdn 


Ma 








inodid 


Ma 








inOAiLI. 


Ma 








Hiaaa 


TlVD 








s'a 


lAW 


•inoNnd 






tLSIZHn 


MO 








ISITHfl 


MO 








iSIHid 


Ma 








liSIAil. 


Ma 








Hiaan 


iq¥D 








i'a 


lAW 


:,LSIHaH 






NISHn 


Ma 








NITHfl 


Ma 








NIHid 


Ma 








NIAiJ, 


Ma 








Hiaaa 


aTYD 








i'a 


lAW 


'NIHOH 






J-SITDn 


Ma 








IiSIHOH 


Ma 








J-SII.HD 


Ma 








iSIAiJ. 


Ma 








Hiaaa 


llVD 








T'a 


lAW 


SJ.SINOD 






i-noTDn 


Ma 








i.noj.ST 


Ma 








inOJ-HD 


Ma 








j.noAij, 


Ma 








Hiaaa 


ITiID 








T'a 


lAW 


- inONOD 






NITOn 


Ma 








NiaOH 


Ma 








NIJLHD 


Ma 








NIAiJ, 


Ma 








Hiaaa 


qavD 








T'a 


lAW 


5 NINOD 







9 03 dAiNOD 



31 



e86T 'p qoJ^W - 3*2 uoxsaaA w/dD JOj a uotstash S0I9D QT't?* 



pf ■ 7 w^tjaxT ovt-^wtaT tat/j-^ 
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EBIB 


CD26EB 




CALL 


REDIR 


ERIE 


3FEB 




DW 


OKIOST 


EB20 


3FEB 




DW 


OKIOST 


EB22 


3AEB 




DW 


DIAOST 


EB24 


3AEB 




DW 


DIAOST 


EB26 


3A0300 


REDIR: 


LDA 


lOBYTE 


EB29 


07 


REDIR0 : 


RLC 




EB2A 


ID 




DCR 


E 


EB2B 


C229EB 




JNZ 


REDIR0 


EB2E 


E606 


REDIRl : 


ANI 


110B 


EB30 


5F 




MOV 


E,A 


EB31 


1600 




MVI 


D,0 


EB33 


El 




POP 


H 


EB34 


19 




DAD 


D 


EB35 


7E 




MOV 


A,M 


EB36 


23 




I NX 


H 


EB37 


66 




MOV 


H,M 


EB33 


6F 




MOV 


L,A 


EB39 


E9 




PCHL 




EB3A 


DB02 


DIAOST: 


IN 


2 


EB3C 


E680 




ANI 


80H 


EB3E 


C8 




RZ 




EB3F 


3EFF 


OKIOST: 


MVI 


A,0FFH 


EB41 


C9 




RET 




EB42 


DB02 


OKOUT : 


IN 


2 


EB44 


E608 




ANI 


8 


EB46 


CA42EB 




JZ 


OKOUT 


EB49 


DB05 


OKOUTl : 


IN 


5 


EB4B 


E601 




ANI 


1 


EB4D 


CA49EB 




JZ 


OKOUTl 


EB50 


79 




MOV 


A,C 


EB51 


D300 




OUT 





EB53 


C9 




RET 




EB54 


DB02 


DIOUTA: 


IN 


2 


EB56 


E680 




ANI 


80H 


EB5 8 


CA54EB 




JZ 


DIOUTA 


EB5B 


79 




MOV 


A,C 


EB5C 


D301 




OUT 


1 


EB5E 


C9 




RET 




EB5F 


CD54EB 


DIOUT: 


CALL 


DIOUTA 


EB62 


3A85EB 




LDA 


COUNT 


EB65 


3D 




DCR 


A 


EB66 


3285EB 




STA 


COUNT 


EB69 


C0 




RNZ 




EB6A 


3E4E 




MVI 


A, 78 


EB6C 


3285EB 




STA 


COUNT 


EB6F 


0E03 




MVI 


CAETX 


EB71 


CD54EB 




CALL 


DIOUTA 


EB74 


DB02 


DIOUTB: 


IN 


2 


EB76 


E640 




ANI 


40H 



;LST 
;LST 
;LST 
;LST 



lOBYTE: 76543210 

= TTY: 00XXXXXX 

= CRT: 01XXXXXX 

= LPT: 10XXXXXX 

= ULl: IIXXXXXX 



;GET THE INTEL STANDARD lOBYTE 
; SHIFT THE NEXT FIELD IN 
•BUMP THE SHIFT COUNT 



;MASK THE REDIRECTION FIELD 
;MAKE THE WORD TABLE OFFSET 

;GET THE TABLE BASE 

; OFFSET INTO OUR TABLE 

;LOAD THE LOW LEVEL l/O RpUTINE POINTER 



; EXECUTE THE LOW LEVEL l/O DRIVER 
;WAIT UNTIL READY 

;0K WOW 

;WAIT UNTIL READY 

; BUFFER FULL? 

; OUTPUT THE CHARACTER ; 

; OUTPUT FROM PTR-GET STATUS 
; OUTPUT THE CHARACTER 

I 

I 

I 

; OUTPUT THE CHARACTER I 



m 



• 



; INPUT FROM DIABLO 



• 



m 
m 



EB78 CA74EB 
EB7B DB01 
EB7D E67F 
EB7F FE06 
EB81 C2 74EB 
EB84 C9 

EBBS 32 



# 

m 
m 



TT'J £. 1 


iwJBXUti 


JZ 


DIOUTB 


IN 


1 


ANI 


7FH 


CPI 


AACK 


JNZ 


DIOUTB 


RET 
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; STRIP PARITY 



COUNT : DB 



50 



* CONTYP: 1 BLANK SPACE FOR CONSOLE DRIVER 

* lL?ERNiT™''rn?if CONOUT, CONIN, CONIST ARE DEFINED IN THE CP/m 
AlilJiRNATION GUIDE. EG. INPUT PARAMF"pwoc adc. t^t r.^^,^ <-P/M 



* 

* 

* 

* 
* 

* 



*******-kic**-k**-kic 



IF 
TTYSET EQU 
CONOUT EQU 
CONIN EQU 
CONIST EQU 
JMP 
OS 
ENDIF 



CONTYP EQ 1 

$ 

$ 

$ 

$ 

? 

125 



.-USER DEFINED 10 AREA 
; CONSOLE INITIALIZATION 
; CONSOLE OUTPUT 
; CONSOLE INPUT 
.•CONSOLE INPUT STATUS 

;USER 10 



* 



NORTH STAR 



* CONYTP: 6 

^ xv-ni. lu PHYSICAL ENTRY POINTS IS PERFORMED AS FOLLOWS: 



* DEVICE NAME 



LEFT RIGHT PARALLEL 
SERIAL SERIAL PORT 



* CONSOLE 

* READER 

* PUNCH 

* LIST 
* 



CON 
RDR 
PUN 
LST 



TTY 
TTY 
TTY 

TTY 



CRT 

PTR 
PTP 
CRT 



UCl 
URl 
UPl 
ULl 



\ III ?SrcP/A ?S„:jf^„t '"'"'"'* ™™^'^™^ ™ ™^ «^=H^ «^«IAL PORT. 

* STAT LST:=CRT: 

* LIKEWISE, THE CP/m COMMAND "STAT LST:=UL1:" IS USED IF YOU HAVE I A 



* 

* 
* 

* 

* 
* 
* 
* 

* 
* 
* 
* 



# 
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* PRINTER CONNECTED TO THE PARALLEL PORT. ] 



* 
***** 



NSLDAT 
NSLSTA 



IF 

EQU 
EQU 



NSRDAT EQU 

NSRSTA EQU 

NSSTBE EQU 

NSSRBR EQU 



NSLINl EQU 
NSRINl EQU 



CONTYP EQ 6 

2 
3 

4 
5 

1 
2 



0CEH 
0CEH 



NSLIN2 EQU 
NSRIN2 EQU 



37H 
37H 



NSFDAT EQU 
NSPSTA EQU 

NSPRBR EQU 



6 
1 



;USE NORTH STAR l/o? 

;LEFT SERIAL PORT DATA POJ^T 
;LEFT SERIAL PORT STATUS PORT 

; RIGHT SERIAL PORT DATA PORT 
; RIGHT SERIAL PORT STATUS ' PORT 

; TRANSMITTER BUFFER EMPTY STATUS BIT 
;RECIEVER BUFFER READY STATUS BIT 

;SEE THE 8251 DATA SHEETS FOR MORE 
CONFIGURATION INFORMATION. 

;LEFT SERIAL PORT INITIALIZATION # 1 

; RIGHT SERIAL PORT INITIALIZATION # 1 

; 76543210 BIT DEFINATIONS 

; 11001110 DEFAULT CONFIGURATION 

;XXXXXX00 SYNCHRONOUS MODE 

;XXXXXX01 IX CLOCK RATE 

;XXXXXX10 16X CLOCK RATE 

;XXXXXX11 64X CLOCK RATE 

;XXXX00XX 5 BIT CHARACTERS 

;XXXX01XX 6 BIT CHARACTERS 

;XXXX10XX 7 BIT CHARACTERS 

;XXXX11XX 8 BIT CHARACTER^ 

;XXX0XXXX PARITY DISBABLE 

;XXX1XXXX PARITY ENABLE 

;XX0XXXXX ODD PARITY GENERATION /CHECK 

;XX1XXXXX EVEN PARITY GENERATION/CHECK 

;00XXXXXX INVALID 

;01XXXXXX 1 STOP BIT 

;10XXXXXX 1.5 STOP BITS 

;11XXXXXX 2 STOP BITS 

;LEFT SERIAL PORT INITIALIZATION # 2 

; RIGHT SERIAL PORT INITIALIZATION # 2 

,-76543210 BIT DEFINATIONS; 

; 00 1101 11 DEFAULT CONFIGURATION 

;XXXXXXX1 ENABLE TRANSMITTER 

;XXXXXX1X ASSERT DTR* 

;XXXXX1XX ENABLE RECIEVER 

;XXXX1XXX SEND BREAK CHARACTER, TXD LOW 

;XXX1XXXX RESET PE, OE, FE ERROR FLAGS 

;XX1XXXXX ASSERT RTS* 

;X1XXXXXX INTERNAL RESET 

;1XXXXXXX ENTER HUNT MODE (FOR SYNC) 

; PARALLEL DATA PORT 

; PARALLEL STATUS PORT I 

I 

; RECIEVER BUFFER READY STATUS BIT 



m 
m 
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I 

NSPTBE EQU 2 .-TRANSMITTER BUFFER EMPTY i STATUS BIT 



NSRAM EQU 



0G0H 



; NORTH STAR MEMORY PARITY PORT, 

SET TO FOR NO NORTH STAR RAM 



* ' ' ■ * 

* LEFT SERIAL PORT ROUTINES. USE TTY: DEVICE. * 

* * 



m 
m 
m 



TTYIN: 








IN 


NSLSTA 




ANI 


NSSRBR 




JZ 


TTYIN 




IN 


NSLDAT 




ANI 


7FH 




RET 




TTYOUT : 








IN 


NSLSTA 




ANI 


NSSTBE 




JZ 


TTYOUT 




MOV 


A,C 




OUT 


NSLDAT 




RET 




TTYIST : 








IN 


NSLSTA 




ANI 


NSSRBR 




RZ 






MVI 


A, 0FFH 




RET 




TTYOST : 








IN 


NSLSTA 




ANI 


NSSTBE 




RZ 






MVI 


A,0FFH 




RET 





;READ A CHARACTER 



;WAIT TILL A CHARACTER IS READY 
;GET THE CHARACTER 
; STRIP PARITY 



;WRITE A CHARACTER 



;WAIT TILL THE BUFFER IS EMPTY 
; WRITE THE CHARACTER 



; RETURN INPUT BUFFER STATUS 



; RETURN NOT READY 

; THERE IS A CHARACTER REA: 



f 



; RETURN OUTPUT BUFFER STATUS 

I 

; RETURN NOT READY \ 
; RETURN READY 

* \ * 

* RIGHT SERIAL PORT ROUTINES. USE CRT:, PTR:, AND PTP: DEVICES. * 

* * 

************************************************************** 



# 
# 



# 



CRT IN: 






PTRIN: 








IN 


NSRSTA 




ANI 


NSSRBR 




JZ 


CRT IN 




IN 


NSRDAT 




ANI 


7FH 




RET 





;READ A CHARACTER 



;WAIT TILL A CHARACTER IS READY 
;GET THE CHARACTER ] 
; STRIP PARITY 
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; WRITE A CHARACTER ' 



;WAIT TILL THE BUFFER IS EMPTY 
yVJRITE THE CHARACTER 



; RETURN INPUT BUFFER STATES 

; RETURN NOT READY 

; THERE IS A CHARACTER READY 

; RETURN OUTPUT BUFFER STATUS 

I 

; RETURN NOT READY 

; RETURN READY : 

* * 

* PARALLEL PORT ROUTINES. USE UCl : , URl : , UR2:, UPl:, UP2:, LPT:. * 

* AND ULl: DEVICES. * 

* * 
************************************************************************* 



CRTOUT : 






PTPOUT : 


IN 


NSRSTA 




ANI 


NSSTBE 




JZ 


CRTOUT 




MOV 


A.C 




OUT 


NSRDAT 




RET 




CRT I ST: 






PTRIST: 








IN 


NSRSTA 




AiNfl 


NSSRBR 




RZ 






MVI 


A, 0FFH 




RET 




CRTOST : 








IN 


NSRSTA 




ANI 


NSSTBE 




RZ 






MVI 


A,0FFH 



UCIIN 
URIIN 

UR2IN 



IN 

ANI 

JZ 

IN 

PUSH 

MVI 

OUT 

POP 

ANI 

RET 



NSPSTA 

NSPRBR 

UCIIN 

NSPDAT 

PSW 

A, 30H 

NSPSTA 

PSW 

7FH 



UCIOUT 
UPIOUT 
UP20UT 
LPTOUT 
ULl OUT 



;READ A CHARACTER 



;WAIT TILL A CHARACTER IS READY 
;GET THE CHARACTER 

; RESET THE PARALLEL INPUT FLAG 



; STRIP PARITY 



; WRITE A CHARACTER 



IN 

ANI 

JZ 

MVI 

OUT 

MOV 



NSPSTA 

NSPTBE 

UCIOUT 

A,20H 

NSPSTA 

A,C 



;WAIT TILL THE BUFFER IS EMPTY 
; RESET THE PARALLEL OUTPUT FLAG 

I 

; WRITE THE CHARACTER, STr6bE BIT 7 



# 



# 
m 
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• 
• 






• 



NSPOUT: 


ORI 


80H 




OUT 


LSfSPDAT 




ANI 


7FH 




OUT 


NSPDAT 




ORI 


80H 




OUT 


NSPDAT 




RET 




UCIIST: 






URIIST: 






UR2IST: 








IN 


NSPSTA 




ANI 


NSPRBR 




RZ 






MVI 


A,0FFH 




RET 




LPTOST: 






ULIOST: 








IN 


NSPSTA 




ANI 


NSPTBE 




RZ 






MVI 


A, 0FFH 




RET 






ENDIF 





; RETURN INPUT BUFFER STATUS 



; RETURN NOT READY 

; RETURN READY 

; RETURN OUTPUT BUFFER STAtUS 

; RETURN NOT READY 
; RETURN READY 

; NORTH STAR l/O CONFIGURATION 

************************************************************************* 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* LST: DEVICE DRIVER ROUTINES. 
* 

* ROUTINE USED DEPENDS ON THE VALUE OF LSTTYP. POSSIBLE LSTTYP 

* VALUES ARE LISTED AS FOLLOWS: 
* 

NOTHING, USED FOR PATCHING TO PROM'S 

1 PROVIDE FOR 128 BYTES OF PATCH SPACE 

* 2 MULTIO SERIAL, NO PROTOCOL 

* 3 MULTIO SERIAL, CLEAR TO SEND PROTOCOL 

* 4 MULTIO SERIAL, DATA SET READY PROTOCOL 

* 5 MULTIO SERIAL, XON/XOFF PROTOCOL 
* 



* LSTTYP IS: 
* 



*****************************************************************'jf******* 

************************************************************************* 
* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* LSTTYP: 1 BLANK SPACE FOR PRINTER DRIVER 
* 

* THE DRIVER ENTRIES LSTOUT AND LSTOST ARE DEFINED IN THE CP/M 

* ALTERNATION GUIDE. EG. INPUT PARAMETERS ARE IN REGISTER C AND 

* RESULTS ARE RETURNED IN REGISTER A. THE LSTSET ROUTINE IS USED 

* FOR INITIALIZATION CODE. IT SHOULD EXECUTE A RET WHEN COMPLETE, 
* 

* THE LSTSET ROUTINE COULD BE PLACED JUST BELOW THE CBOOT ROUTINE. 

* THIS SPACE (BELOW CBOOT) IS RECYLED FOR USE AS A DISK BUFFER 

* AFTER CBOOT IS DONE. 
* 



m 
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; PRINTER INITIALIZATION 

; PRINTER OUTPUT 

; PRINTER OUTPUT STATUS 





IF 


LSTTYP EQ 1 


LSTSET 


EQU 


$ 


LSTOUT 


EQU 


$ 


LSTOST 


EQU 


$ 




JMP 


? 




DS 


125 



ENDIF 



;USER 10 



***************************************************************** 

* * 

* LSTTYP: 2, 3, 4, OR 5 SERIAL PRINTER, MULTI PROTOCOL * 

* * 
***************************************************************** 



* CODE REMOVED 

***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H) . * 

* * 

***************************************************************** 



m 



EB86 


218000 


GOCPM : LXI 


H,BUFF 


EB89 


CDF9EB 


CALL 


SETDMA 


EB8C 


3EC3 


MVI 


A, (JMP) 


EB8E 


320000 


STA 


WBOT 


EB91 


320500 


STA 


ENTRY 


EB94 


2103EA 


LXI 


H,WBOOTE 


EB97 


220100 


SHLD 


WBOT+1 


EB9A 


2106DC 


LXI 


H,BD0S+6 


EB9D 


220600 


SHLD 


ENTRY+1 


EBA0 


AF 


XRA 


A 


EBAl 


32F6F4 


STA 


BUFSEC 


EBA4 


3290ED 


STA 


BUFWRTN 


EBA7 


32F2F4 


STA 


ERROR 


EBAA 


3ADBEB 


LDA 


CWFLG 


EBAD 


B7 


ORA 


A 


EBAE 


21EEEA 


LXI 


H,COLDMES 


EBBl 


CAB7EB 


JZ 


CLDCMND 


EBB4 


21F0EA 


LXI 


H,WARMES 


EBB7 


5E 


CLDCMND : MOV 


E,M 


EBB8 


23 


I NX 


H 


EBB9 


56 


MOV 


D,M 


EBBA 


lA 


LDAX 


D 


EBBB 


3C 


INR 


A 


EBBC 


2107D4 


LXI 


H,CCP+7 


EBBF 


4F 


MOV 


C,A 


EBC0 


0600 


MVI 


B,0 


EBC2 


CDE6EE 


CALL 


MOVBYT 


EBC5 


3ADBEB 


LDA 


CWFLG 


EBCB 


B7 


ORA 


A 



;SET UP INITIAL DMA ADDRESS 

; INITIALIZE JUMP TO WARM BOOT 

; INITIALIZE JUMP TO BDOS 

;SET UP LOW MEMORY ENTRY TO CBIOS : WARl-^ BOOT 

;SET UP LOW MEMORY ENTRY TO BDOS 

I 

;A <- 

;SET BUFFER TO UNKNOWN STATE 
;SET BUFFER NOT DIRTY FLAG 
.-CLEAR BUFFER ERROR FLAG 

;GET COLD/VJARM BOOT FLAG 

; POINTER TO INITIAL COLD COMMAND 

; POINTER TO INITIAL WARM COMMAND 
;D0 ONE LEVEL OF INDIRECTION 



;GET COMMAND LENGTH 

;BUMP LENGTH TO INCLUDE LENGTH BYTE ITSELF 
; COMMAND BUFFER (INCLUDES LENGTH I?YTE) 
;SET UP FOR BLOCK MOVE 

;MOVE COMMAND TO INTERNAL CCP BUFFER 

; FIGURE OUT WHETHER OR NOT TO SEND MESSAGE 



# 
# 

m 



m 
m 
m 
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# 



EBC9 


3AEDEA 




LDA 


AUTOFLG 


EBCC 


CAD0EB 




JZ 


CLDBOT 


EBCF 


IF 




RAR 




EBD0 


IF 


CLDBOT : 


RAR 




EBDl 


3A0400 




LDA 


CDISK 


EBD4 


4F 




MOV 


C,A 


EBD5 


DA00D4 




JC 


CCP 


EBD8 


C303D4 




JMP 


CCP+3 


EBDB 


00 


CWFLG : 


DB 






;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 

; ENTER CP/M, SEND MESSAGE 
; ENTER CP/M, NO MESSAGE 






; COLD/WARM BOOT FLAG 

***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 

;SET UP STACK POINTER 

;SET COLD/WARM BOOT FLAG 

;MOVE DRIVE TO WARM BOOT OFF OF INTO (H) 
;PEFORM WARM BOOT OPERATION 

;N0 ERROR 

;HALT COMPUTER 

;IN CASE USER RESTARTS THE COMPUTER 

***************************************************************** 

* * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 

*****************************************************************; 

; ENTER WITH SECTOR NUMBER IN (BC) 



EBDC 


310001 WBOOT: LXI 


SP , TPA 


EBDF 


3E01 


MVI 


A,l 


EBEl 


32DBEB 


STA 


CWFLG 


EBE4 


2600 


MVI 


H.WMDRIVE 


EBE6 


2E00 


MVI 


L,D$VfBOOT 


EBE8 


CD60EE 


CALL 


JUMPER 


EBEB 


D286EB 


JNC 


GOCPM 


EBEE 


76 


HLT 




EBEF 


00 


DB 





EBF0 


C3DCEB 


JMP 


WBOOT 



EBF3 


60 


SETSEC : 


MOV 


H,B 


EBF4 


69 




MOV 


L,C 


EBF5 


22EBF4 




SHLD 


CPMSEC 


EBF8 


C9 


DONOP : 


RET 





m 
m 



***************************************************************** 
* * 

* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. * 

* * 

***************************************************************** 



EBF9 


60 


SETDMA: MOV 


H,B 


EBFA 


69 


MOV 


L,C 


EBFB 


2271ED 


SHLD 


CPMDMA 


EBFE 


C9 


RET 





; ENTER WITH DMA ADDRESS IN (BC) 
;CP/M DMA ADDRESS 
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***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. *i 

* * I 

***************************************************************** 

;TEST BUFFER DIRTY FLAG 

;SKIP BUFFER DISABLE IF BUFFER DIRTY 
; INVALIDATE BUFFER ON HOME CALL 

; TRACK TO SEEK TO 

I 
***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



m 
m 



EBFF 


3A90ED 


HOME: 


LDA 


BUFWRTN 


EC02 


37 




ORA 


A 


EC03 


C20AEC 




JNZ 


DOHOME 


EC06 


AF 




XRA 


A 


EC07 


32F6F4 




STA 


BUFSEC 


EC0A 


010000 


DOHOME : 


LXI 


B,0 






EC0D 60 
EC0E 69 
EC0F 22EEF4 
EC12 C9 



EC13 3AEDF4 
EC16 67 
EC17 2E01 
EC19 C360EE 



SETTRK: MOV H,B ; ENTER WITH TRACK NUMBER IN (BC) 

MOV L,C 

SHLD CPMTRK 
RET 

***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR NUMBER INTO A PHYSICAL * 

* SECTOR NUMBER. * 

* * 

***************************************************************** 



SECTRAN: LDA 
MOV 
MVI 
JMP 



CPMDRV 
H,A 

L,D§STRAN 
JUMPER 



;GET THE DRIVE NUMBER 
.-DRIVE IN (H) 

;SEE DEVICE LEVEL SECTOR TRANSLATION ROUTINES 



* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE * 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED IT CALLS * 

* A LOW LEVEL DRIVE SELECT ROUTINE THAT SHOULD PERFORM SOME * 

* SORT OF CHECK IF THE DEVICE IS WORKING. IF NOT WORKING THEN * 

* IT SHOULD REPORT AN ERROR. IF THE LOGICAL DRIVE HAS BEEN * 

* SELECTED BEFORE THEN SETDRV JUST RETURNS THE DPH WITHOUT * 

* CHECKING THE DRIVE. * 

* * 

***************************************************************** 



EClC 


79 


SETDRV: MOV 


ECID 


32EDF4 


STA 


EC20 


FE04 


CPI 


EC22 


D281EC 


JNC 


EC25 


7B 


MOV 


EC26 


E601 


AN I 



A,C 

CPMDRV 
MAXLOG 
ZRET 

A,E 
1 



;SAVE THE LOGICAL DRIVE NUMBER 

; CHECK FOR A VALID DRIVE NUMBER 
; ILLEGAL DRIVE 

; CHECK IF BIT OF (E) = 1 



m 
m 
m 
# 

m 
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m 
# 






EC2B 


61 


EC2C 


2E02 


EC2E 


CD60EE 


EC31 


7C 


EC32 


B5 


EC33 


CAS 1 EC 


EC36 


E5 


EC37 


CD74EC 


EC3A 


Dl 


EC3B 


73 


EC3C 


23 


EC3D 


72 


EC3E 


23 


EC3F 


71 


EC40 


23 


EC41 


7E 


EC42 


B7 


EC43 


CCA2EC 


EC46 


EB 


EC47 


79 


EC48 


3222ED 


EC4B 


AF 


EC4C 


0D 


EC4D 


CA56EC 


EC50 


07 


EC51 


F601 


EC53 


C34CEC 


EC56 


3260ED 


EC59 


3AEDF4 


EC5C 


32FCF4 


EC5F 


C9 


EC60 


D5 


EC61 


61 


EC62 


2E03 


EC64 


CD60EE 


EC67 


CD74EC 


EC6A 


Dl 


EC6B 


5E 


EC6C 


23 


EC6D 


56 


EC6E 


23 


EC6F 


4E 


EC70 


EB 


EC71 


C347EC 


EC74 


3AEDF4 


EC77 


07 


EC78 


07 


EC79 


5F 


EC7A 


1600 


EC7C 


2192EC 



SETD0 i 



SETDl ; 



SETD2; 



SETD3; 



GDPH: 



#035 


CBIOS Revision 


JNZ 


SETD3 


MOV 


H,C 


MVI 


L,D$SEL1 


CALL 


JUMPER 


MOV 


A,H 


ORA 


L 


JZ 


ZRET 


PUSH 


H 


CALL 


GDPH 


POP 


D 


MOV 


M,E 


I NX 


H 


MOV 


M,D 


I NX 


H 


MOV 


M,C 


I NX 


H 


MOV 


A,M 


ORA 


A 


CZ 


GETBAD 


XCHG 




MOV 


A,C 


STA 


SECSIZ 


XRA 


A 


DCR 


C 


JZ 


SETD2 


RLC 




ORI 


1 


JMP 


SETDl 


STA 


SECPSEC 


LDA 


CPMDRV 


STA 


LASTDRV 


RET 




PUSH 


D 


MOV 


H,C 


MVI 


L,D$SEL2 


CALL 


JUMPER 


CALL 


GDPH 


POP 


D 


MOV 


E,M 


I NX 


H 


MOV 


D,M 


I NX 


H 


MOV 


C,M 


XCHG 




JMP 


SETD0 


LDA 


CPMDRV 


RLC 




RLC 




MOV 


E,A 


MVI 


D,0 


LXI 


H,DPHTAB 



E for CP/M Version 2.2 - March 4, 1982 
; DRIVE HAS ALLREADY BEEN ACCESSED 
;MOVE LOGICAL DRIVE INTO (H) 



CALL LOW LEVEL DRIVE SELECT 

CHECK IF THE LOW LEVEL DRIVE SELECT RETURNED 

ZERO TO INDICATE AN ERROR 
YES, AN ERROR SO REPORT TO CP/M 

;SAVE DPH ADDRESS 

;GET ENTRY IF DPH SAVE TABLE 

;DPH -> (DE) 

;PUT ADDRESS OF DPH IN TABLE 



;PUT SECTOR SIZE IN TABLE 

CHECK IF BAD MAP HAS EVER BEEN R^AD FOR THIS 

DRIVE 
NEVER BEEN READ SO READ IN BAD MAP 
DPH -> (HL) 

I 

;MOVE SECTOR SIZE CODE INTO (A) 
;SAVE SECTOR SIZE 

;CREATE NUMBER OF (128 BYTES/PHYSICAL SECT0R)-1 



;SAVE FOR DEBLOCKING 

;SAVE CURRENT DRIVE AS OLD DRIVE 

; IN CASE OF SELECT ERRORS 



;SAVE DPH ADDRESS 
; DRIVE IN (H) 
; SELECT DRIVE 



; QUICK SELECT 
;DPH -> (DE) 



; SECTOR SIZE -> (C) 
;DPH -> (HL) 



; RETURN POINTER TO DPH SAVE AREA 
;EACH ENTRY IS 4 BYTES LONG 



;DPH SAVE AREA TABLE 



m 
m 
m 



cp/m macro ASSEM 2.0 



#036 
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EC7F 19 
EC80 C9 

EC81 210000 
EC84 3AFCF4 
EC87 4F 
EC88 3A0400 
EC8B E6F0 
EC8D Bl 
EC8E 320400 
EC91 C9 



ZRET: 



DAD 


D 


RET 




LXI 


H,0 


LDA 


LASTDRV 


MOV 


C,A 


LDA 


CDISK 


ANI 


0F0H 


ORA 


C 


STA 


CDISK 


RET 





;ADD OFFSET '■ 

;(HL) = DPH SAVE AREA FOR CURRENT DRIVE 

;SELDRV ERROR EXIT 

;GET LAST SELECTED DRIVE | 

;PICK UP USER/DRIVE ' 

;SAVE USER NUMBER 

;PUT TOGETHER WITH OLD DRIVE i 



******1tie**1i**************************-k********1c*1e********ie****ie** 

* * 

* DPH SAVE AREA. EACH ENTRY IS 4 BYTES LONG: *; 

* - LSB OF DPH ADDRESS * i 

* 1 - MSB OF DPH ADDRESS * | 

* 2 - SECTOR SIZE CODE (1 = 128, 2 = 256, 3 = 512... *! 

* 3 - BAD MAP HAS BEEN INITILIZED (0 = UNINITILIZED) *i 

* * 



m 
m 





DPHTAB: REPT 


MAXLOG*4 




DB 







ENDM 




EC92+00 


DB 





EC93+00 


DB 





EC94+00 


DB 





EC95+00 


DB 





EC96+00 


DB 





EC97+00 


DB 





EC98+00 


DB 





EC99+00 


DB 





EC9A+00 


DB 





EC9B+00 


DB 





EC9C+00 


DB 





EC9D+00 


DB 





EC9E+00 


DB 





EC9F+00 


DB 





ECA0+00 


DB 





ECAl+00 


DB 






m 
# 



**1e*1c***************1e******i(********1t**********1e***************ie* 

* * 

* GETBAD - CHECK IF A DEVICE HAS A BAD MAP. IF THE DEVICE HAS * 

* A BAD SECTOR MAP THEN APPEND BAD ENTRIES TO END OF BADMAP * 

* TABLE. * 

* * 

***************************************************************** 



ECA2 


3601 


GETBAD : 


MVI 


M,l 


ECA4 


C5 




PUSH 


B 


ECA5 


D5 




PUSH 


D 


ECA6 


3AEDF4 




LDA 


CPMDRV 


ECA9 


67 




MOV 


H,A 


ECAA 


2E0A 




MVI 


L,D$BAD 



;SET DRIVE INITILIZED 



;PICK UP CURRENT DRIVE 

;CALL DRIVE ROUTINE TO RETURN A POINTER TO 

;THE TRACK AND SECTOR OF THE BAD IJIAP 
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CBIOS Re-^ 


EC AC 


CD60EE 


CALL 


JUMPER 


ECAF 


7C 


MOV 


A,H 


ECB0 


B5 


ORA 


L 


ECBl 


CAE9EC 


JZ 


BADRET 


ECB4 


5E 


MOV 


E,M 


ECB5 


23 


INX 


H 


ECB6 


56 


MOV 


D,M 


ECB7 


23 


INX 


H 


ECB8 


EB 


XCHG 




ECB9 


22EEF4 


SHLD 


CPMTRK 


ECBC 


EB 


XCHG 




ECBD 


7E 


MOV 


A,M 


ECBE 


23 


INX 


H 


ECBF 


66 


MOV 


H,M 


ECC0 


6F 


MOV 


L,A 


ECCl 


22F0F4 


SHLD 


TRUESEC 


ECC4 


CDF0ED 


CALL 


FILL 


ECC7 


D8 


RC 




Ecca 


2A0FED 


LHLD 


BADPTR 


ECCB 


116DF5 


LXI 


D, BUFFER 


ECCE 


lA BADL: LDAX 


D 


ECCF 


B7 


ORA 


A 


ECD0 


CAE6EC 


JZ 


BADE 


ECD3 


7E 


MOV 


A,M 


ECD4 


3C 


INR 


A 


ECD5 


CAECEC 


JZ 


OVERFLO 


ECD8 


3AEDF4 


LDA 


CPMDRV 


ECDB 


77 


MOV 


M,A 


ECDC 


23 


INX 


H 


ECDD 


010800 


LXI 


B,8 


ECE0 


CDE6EE 


CALL 


MOVBYT 


ECE3 


C3CEEC 


JMP 


BADL 


ECE6 


220FED BADE: SHLD 


BADPTR 


ECE9 


Dl BADRET: POP 


D 


ECEA 


CI 


POP 


B 


ECEB 


C9 


RET 




ECEC 


21F5EC OVERFLO:LXI 


H,OMES 


ECEF 


CD05EF 


CALL 


MESSAGE 


ECF2 


C3E9EC 


JMP 


BADRET 



ECF5 0D0A424144OMESi 



DB 
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;IF ROUTINE RETURNS THEN THE DEVICE HAS 
; NO BAD SECTOR MAP 



;PICK UP TRACK NUMBER OF BAD SECTOR MAP -> (DE) 



;PICK UP SECTOR NUMBER OF OF BAD SECTOR MAP 



;READ IN BAD SECTOR MAP INTO THE BUFFER 



;PICK UP BAD MAP POINTER 

; START AT BEGINNING OF BUFFER 

;PICK UP AN ENTRY FROM THE BUFFER 

;ALL DONE 

;PICK UP ENTRY FROM BAD MAP TABLE 

;BAD MAP OVERFLOW 
;PUT DRIVE IN TABLE 



;MOVE THE REST OF INFORMATION INTO THE TABLE 



.•RESTORE NEW BAD MAP POINTER 



# 



m 



0DH, 0AH, 'BAD MAP OVERFLOWl ' , 0DH, 0AH, 



ED0B 


210000 


NOBAD : 


LXI 


H,0 


ED0E 


C9 




RET 




ED0F 


6DF9 


BADPTR: 


DW 


BADMAP 



;USED BY DEVICE DRIVES TO INDICATE NO BAD 
; SECTOR MAP 

; POINTER TO NEXT AVAILABLE BAD MA^ ENTRY 

***************************************************************** 

* * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE *\ 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 
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* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE *' 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 
***************************************************************** 



EDll 


79 


WRITE: 


MOV 


A,C 


ED12 


328AED 




STA 


WRITTYP 


EDI 5 


3E01 




MVI 


A,l 


ED17 


C31EED 




JMP 


RWENT 



;SAVE WRITE COMMAND TYPE 
;SET WRITE COMMAND 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. 



I # 

I m 

I ♦ 

1 

I # 



* * 

***************************************************************** 



EDIA AF 


READ: 


XRA 


A 






IF 


NOSTAND NE 


EDIB 32E7F4 




STA 
ENDIF 


UNALOC 


EDIE 3274ED 


RWENT : 


STA 


RDWR 



;SET THE COMMAND TYPE TO READ 
; CLEAR UNALLOCATED WRITE FLAG 
;SAVE COMMAND TYPE 

***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 

* * 

***************************************************************** 



ED21 


0600 


REDWRT : 


MVI 


B,0 


ED22 


- 


SECSIZ 


EQU 


$-1 


ED23 


2AEBF4 




LHLD 


CPMSEC 


ED26 


7C 




MOV 


A,H 


ED27 


E680 




ANI 


80H 


ED29 


4F 




MOV 


C,A 


ED2A 


7C 




MOV 


A,H 


ED2B 


E67F 




ANI 


7FH 


ED2D 


67 




MOV 


H,A 


ED2E 


2B 




DCX 


H 


ED2F 


05 


DIVLOOP 


:DCR 


B 


ED30 


CA3DED 




JZ 


DIVDONE 


ED33 


B7 




ORA 


A 


ED34 


7C 




MOV 


A,H 



;THE IS MODIFIED TO CONTAIN THE L0G2 
OF THE PHYSICAL SECTOR SIZE/128 
ON THE CURRENTLY SELECTED DISK 

;GET THE DESIRED CP/M SECTOR # 

;SAVE ONLY THE SIDE BIT 
; REMEMBER THE SIDE 

; FORGET THE SIDE BIT 

; TEMPORARY ADJUSTMENT 

; UPDATE REPEAT COUNT ! 
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ED35 


IF 


RAR 




ED36 


67 


MOV 


H,A 


ED37 


7D 


MOV 


A,L 


ED38 


IF 


RAR 




ED39 


6F 


MOV 


L,A 


ED3A 


C32FED 


JMP 


DIVLOOP 


ED3D 


23 


DIVDONE : INX 


H 


ED3E 


7C 


MOV 


A,H 


ED3F 


Bl 


ORA 


C 


ED40 


67 


MOV 


H,A 


ED41 


22F0F4 


SHLD 


TRUESEC 


ED44 


21EDF4 


LXI 


H.CPMDRV 


ED47 


11F3F4 


LXI 


D,BUFDRV 


ED4A 


0606 


MVI 


B,6 


ED4C 


05 


DTSLOP: DCR 


B 


ED4D 


CASHED 


JZ 


MOVE 


ED50 


lA 


LDAX 


D 


ED51 


BE 


CMP 


M 


ED52 


23 


INX 


H 


ED53 


13 


INX 


D 


ED54 


CA4CED 


JZ 


DTSLOP 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



/RESTORE THE SIDE BIT 

SAVE THE PHYSICAL SECTOR NUMBER 

POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

COUNT LOOP 

TEST IF DONE WITH COMPARE 

YES, MATCH. GO MOVE THE DATA 

GET A BYTE TO COMPARE 

TEST FOR MATCH 

BUMP POINTERS TO NEXT DATA ITEM 

;MATCH, CONTINUE TESTING 

***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF *■ 

* NECESSARY AND THEN REFILL. * 

* * 
***************************************************************** 



ED57 CDF0ED 
ED5A D8 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;N0 GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 
***************************************************************** 



ED5B 


3AEBF4 


MOVE: LDA 


ED5E 


3D 


DCR 


ED5F 


E600 


AN! 


ED60 


= 


SECPSEC EQU 


ED61 


6F 


MOV 


ED62 


2600 


MVI 


ED64 


29 


DAD 


ED65 


29 


DAD 


ED66 


29 


DAD 


ED67 


29 


DAD 


ED68 


29 


DAD 


ED69 


29 


DAD 


ED6A 


29 


DAD 


ED6B 


116DF5 


LXI 


ED6E 


19 


DAD 



CPMSEC 

A 



?-l 

L,A 

H,0 

H 

H 

H 

H 

H 

H 

H 

D, BUFFER 

D 



GET THE CP/M SECTOR TO TRANSFER 
ADJUST TO PROPER SECTOR IN BUFFER 
STRIP OFF HIGH ORDERED BITS 
THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL SECTORS 
PUT INTO HL 

7 FORM OFFSET INTO BUFFER 



; BEGINNING ADDRESS OF BUFFER 

;FORM BEGINNING ADDRESS OF SECTGR TO TRANSFER 
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DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED T/ 
CONTAIN THE DMA ADDRESS | 

;THE zero GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION \ 
; TRANSFER DATA INTO THE BUFFER 

;GET THE BUFFER ERROR FLAG 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 

;TEST FOR A DIRECTORY WRITE 

;N0 ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. 



ED6F 


EB 




XCHG 




ED70 


210000 




LXI 


H,0 


ED71 


^ 


CPMDMA 


EQU 


$-2 


ED73 


3E00 




MVI 


A,0 


ED74 


= 


RDWR 


EQU 


$-1 


ED75 


A7 




ANA 


A 


ED76 


C280ED 




JNZ 


INTO 


ED79 


CDE3EE 


OUTOF : 


CALL 


M0V128 


ED7C 


3AF2F4 




LDA 


ERROR 


ED7F 


C9 




RET 




ED80 


EB 


INTO: 


XCHG 




EDSl 


CDE3EE 




CALL 


MOV128 


ED84 


3E01 




MVI 


A,l 


ED86 


3290ED 




STA 


BUFWRTN 


ED89 


3E00 




MVI 


A,0 


ED8A 


= 


WRITTYP 


EQU 


$-1 


ED8B 


3D 




DCR 


A 


ED8C 


3E00 




MVI 


A,0 


ED8E 


C0 




RNZ 





* 

* * 

***************************************************************** 



?THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO I 

;NOT WRITTEN, ALL DONE 



ED8F 


3E00 


FLUSH : 


MVI 


A,0 


ED90 


— 


BUFWRTN 


EQU 


$-1 


ED9I 


B7 




ORA 


A 


ED92 


C8 




RZ 




ED93 


3E09 




MVI 


A, D$WRITE 


ED95 


32D3ED 




STA 


RWOP+1 


ED98 


CD9FED 




CALL 


PREP 


ED9B 


32F2F4 




STA 


ERROR 


ED9E 


C9 




RET 





;D0 THE PHYSICAL WRITE 
;SET UP THE ERROR FLAG 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 

* * 



# 



m 



***************************************************************** 



ED9F CD83EE 
EDA2 F3 
EDA3 AF 
EDA4 3290ED 

EDA7 060A 



PREP: 



CALL 


ALT 


DI 




XRA 


A 


STA 


BUFWRTN 


MVI 


B, RETRIES 



; CHECK FOR ALTERNATE SECTORS 

; RESET INTERRUPTS 

; RESET BUFFER WRITTEN FLAG 



.-MAXIMUM NUMBER OF RETRIES TO ATTEMPT 



m 
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EDA9 C5 RETRYLPiPUSH 



EDAA 2E03 
EDAC CD5CEE 
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EDAF 2AF8F4 





EDB2 


7C 


EDB3 


B5 




EDB4 


E5 


EDB5 


2E04 




EDB7 


CC5CEE 




EDBA 


CI 




EDBB 


2E05 




EDBD 


CD5CEE 




EDC0 


2AFAF4 




EDC3 


44 


EDC4 


4D 




EDC5 


2E06 


EDC7 


CD5CEE 




EDCA 


016DF5 


EDCD 


2E07 




EDCF 


CD5CEE 




EDD2 


2E00 




EDD4 


CD5CEE 


# 


EDD7 


CI 


! 


EDD8 


3E00 


m 


EDDA 


D0 


EDDB 


05 




EDDC 


37 




EDDD 


3EFF 


EDDF 


C8 




EDE0 


78 




EDEl 


FE05 


EDE3 


C2A9ED 


1 


EDE6 


C5 




EDE7 


2E04 


EDE9 


CD5CEE 




EDEC 


CI 


^fek 


EDED 


C3A9ED 



EDF0 CD8FED 
EDF3 D8 



RWdP: 



B 



MVI 


L,D$SEL2 


CALL 


JUMPBUF 


LHLD 


ALTTRK 


MOV 


A,H 


ORA 


L 


PUSH 


H 


MVI 


L,D$HOME 


cz 


JUMPBUF 


POP 


B 


MVI 


L,D$STRK 


CALL 


JUMPBUF 


LHLD 


ALTSEC 


MOV 


B,H 


MOV 


C,L 


MVI 


L,D$SSEC 


CALL 


JUMPBUF 


LXI 


B, BUFFER 


MVI 


L,D$SDMA 


CALL 


JUMPBUF 


MVI 


L,0 


CALL 


JUMPBUF 


POP 


B 


MVI 


A,0 


RNC 




DCR 


B 


STC 




MVI 


A, 0FFH 


RZ 




MOV 


A,B 


CPI 


RETRIES/2 


JNZ 


RETRYLP 


PUSH 


B 


MVI 


L,D$HOME 


CALL 


JUMPBUF 


POP 


B 


JMP 


RETRYLP 



;SAVE THE RETRY COUNT 
; SELECT DRIVE 

; TRACK NUMBER -> (HL) 
;TEST FOR TRACK ZERO 

;SAVE TRACK NUMBER 

; RESTORE TRACK # 

; SECTOR -> (HL) 



;SET THE DMA ADDRESS 



;GET OPERATION ADDRESS 



; RESTORE THE RETRY COUNTER 

;N0 ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 

; RETURN SAD NEWS 



;TRY AGAIN 

;SAVE RETRY COUNT 

;HOME DRIVE AFTER (RETRIES/ 2) ERRORS 



;TRY AGAIN 

***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



• 

m 



FILL: 



CALL 

RC 



FLUSH 



; FLUSH BUFFER FIRST 
; CHECK FOR ERROR 



m 
m 
# 
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EDF4 


11EDF4 


LXI 


D,CPMDRV 


EDF7 


21F3F4 


LXI 


H,BUFDRV 


EDFA 


010500 


LXI 


B,5 


EDFD 


CDE6EE 


CALL 


MOVBYT 


EE00 


3A74ED 


LDA 


RDWR 


EE03 


B7 


ORA 


A 


EE04 


CA50EE 


JZ 


FREAD 


EE07 


3A8AED 


LDA 


WRITTYP 






IF 


NOSTAND NE 


EE0A 


B7 


ORA 


A 


EE0B 


C231EE 


JNZ 


FNALOC 


EE0E 


3AE7F4 


LDA 


UNALOC 


EEll 


B7 


ORA 


A 


EE12 


CA4BEE 


JZ 


FWRITIN 


EE15 


2AE7E9 


LHLD 


CBLOCK 


EE18 


EB 


XCHG 




EE19 


2AE8F4 


LHLD 


OBLOCK 


EEIC 


7A 


MOV 


A,D 


EEID 


BC 


CMP 


H 


EEIE 


C247EE 


JNZ 


AWRITIN 


EE21 


7B 


MOV 


A,E 


EE22 


BD 


CMP 


L 


EE23 


C247EE 


JNZ 


AWRITIN 


EE26 


21EDF4 


LXI 


H,CPMDRV 


EE29 


3AEAF4 


LDA 


UNADRV 


EE2C 


BE 


CMP 


M 


EE2D 


C247EE 


JNZ 


AWRITIN 


EE30 


C9 


RET 




EE31 


3D 


FNALOC: DCR 


A 


EE32 


CA47EE 


JZ 


AWRITIN 


EE35 


2AE7E9 


LHLD 


CBLOCK 


EE38 


22E8F4 


SHLD 


OBLOCK 


EE3B 


3AEDF4 


LDA 


CPMDRV 


EE3E 


32EAF4 


STA 


UNADRV 


EE41 


3E01 


MVI 


A,l 


EE43 


32E7F4 


STA 


UNALOC 


EE46 


C9 


RET 




EE47 


AF 


AWRITIN:XRA 


A 


EE48 


32E7F4 


STA 


UNALOC 



ELSE 

SUI 
RZ 

ENDIF 
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UPDATE THE DRIVE, TRACK, AND SECTOR 



NUMBER OF BYTES TO MOVE 
COPY THE DATA 



TEST READ WRITE FLAG 

SKIP WRITE TYPE CHECK IF READING 
= ALLOC, 1 = DIR, 2 = UNALLOC 

DO NON STANDARD (BUT QUICK AND DIRTY) CHECK 

SKIP IF NOT AN ALLOCATED WRITE 

CHECK UNALLOCATED WRITE IN PROGRESS FLAG 

WE ARE DOING AN ALLOCATED WRITE 
GET CURRENT BLOCK ADDRESS 

AND OLD BLOCK ADDRESS 
COMPARE OLD VERSUS NEW 

DIFFERENT, CLEAR UNALLOCATED WRITTING MODE 



•TEST FOR DIFFERENT DRIVE 



; DRIVE IS DIFFERENT, CLEAR UNALLOCATED MODE 
; UNALLOCATED WRITE, DO NOTHING... 



;D0 A DIRECTORY WRITE 

;WE ARE NOW DOING AN UNALLOCATED WRITE 

;SAVE CURRENT BLOCK NUMBER ' 

;SAVE DRIVE THAT THIS BLOCK BELONGS TO 

;SET UNALLOCATED WRITE FLAG 

AND WE DO NOTHING ABOUT THE WjlITE 

; CLEAR UNALLOCATED WRITTING MODE 

;D0 STANDARD UNALLOCATED TEST 

t 

;TEST FOR AN UNALLOCATED WRITE 






EE4B 


3A22ED 


FWRITIN: LDA 


SECSIZ 


EE4E 


3D 


DCR 


A 


EE4F 


C8 


RZ 





.-CHECK FOR 128 BYTE SECTORS 
;N0 DEBLOCKING NEEDED 
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m 
# 






• 



EE50 


3E08 


FREAD; 


MVI 


A, D$READ 


EE52 


32D3ED 




STA 


RWOP+1 


EE55 


CD9FED 




CALL 


PREP 


EE58 


32F2F4 




STA 


ERROR 


EE5B 


C9 




RET 





;READ THE PHYSICAL SECTOR THE BUFFER 
;SET THE ERROR STATUS ; 



***************************************************************** 

* * 

* JUMPBUF, JUMPER ARE USED TO DISPATCH TO A LOW LEVEL DEVICE * 

* SUBROUTINE. JUMPER IS CALLED WITH THE DRIVE IN (H) AND THE * 

* ROUTINE NUMBER (SEE DESCRIPTION ABOVE) IN (L) . IT PASSES * 

* ALONG THE (BC) AND (DE) REGISTERS UNALTERED. JUMPBUF IS 

* A CALL TO JUMPER WITH THE DRIVE NUMBER FROM BUFDRV. 
* 



# 



*************** 



* 

* 
* 

************************************************** 



EE5C 


3AF3F4 


JUMPBUF :LDA 


BUFDRV 


EE5F 


67 


MOV 


H,A 


EE60 


D5 


JUMPER: PUSH 


D 


EE61 


C5 


PUSH 


B 


EE62 


E5 


PUSH 


H 


EE63 


7C 


MOV 


A,H 


EE64 


113BEA 


LXI 


D, DSTTAB 


EE67 


4F 


JUMPL: MOV 


C,A 


EE60 


lA 


LDAX 


D 


EE69 


6F 


MOV 


L,A 


EE6A 


13 


I NX 


D 


EE6B 


lA 


LDAX 


D 


EE6C 


67 


MOV 


H,A 


EE6D 


13 


I NX 


D 


EE6E 


79 


MOV 


A,C 


EE6F 


96 


SUB 


M 


EE70 


D267EE 


JNC 


JUMPL 


EE73 


23 


INX 


H 


EE74 


Dl 


POP 


D 


EE75 


7B 


MOV 


A,E 


EE76 


07 


RLC 




EE77 


5F 


MOV 


E,A 


EE7B 


1600 


MVI 


D,0 


EE7A 


19 


DAD 


D 


EE7B 


7E 


MOV 


A,M 


EE7C 


23 


INX 


H 


EE7D 


66 


MOV 


H,M 


EE7E 


6F 


MOV 


L,A 


EE7F 


79 


MOV 


A, C 


EE80 


CI 


POP 


B 


EE81 


Dl 


POP 


D 


EE82 


E9 


PCHL 





; DISPATCH WITH BUFDRV FOR DRIVE 



;LOGICAL DRIVE INTO (A) 

;DRIVE SPECIFICATION POINTER TABLE 

;SAVE LOGICAL IN (C) 



;GET A DST POINTER IN (HL) 

;LOGICAL IN (A) 

; SUBTRACT FROM FIRST ENTRY IN DST 

;KEEP SCANNING TABLE TILL CORRECT i DRIVER FOUND 

;BUMP (HL) TO POINT TO START OF DISPATCH TABLE 

;REAL (HL) -> (DE) 

;MOVE OFFSET NUMBER INTO (A) 

.-EACH ENTRY IS 2 BYTES 

;MAKE AN OFFSET 

;(HL) = **ROUTINE 

;PICK UP ADDRESS OF HANDLER FOR S|:LECTED 

; FUNCTION 



(HL) = * ROUTINE 

LOGICAL IN (A) 

RESTORE SAVED REGISTERS 



r**************************************************************** 



m 
m 



* CHECK FOR ALTERNATE SECTORS IN BAD SECTOR TABLE. IF AN 

* ALTERNATE SECTOR IS FOUND REPLACE ALTTRK AND ALTSEC WITH 



* 
* 
* 
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* NEW SECTOR NUMBER ELSE PASS ALONG UNALTERED. * 

* * 
***************************************************************** 



EE83 


216DF9 


ALT : LXI 


H,BADMAP 


EE86 


3AF3F4 


LDA 


BUFDRV 


EE89 


4F 


MOV 


C,A 


EE8A 


EB 


ALL : XCHG 




EE8B 


2A0FED 


LHLD 


BADPTR 


EE8E 


EB 


XCHG 




EE8F 


7A 


MOV 


A,D 


EE90 


BC 


CMP 


H 


EE91 


C2A6EE 


JNZ 


ALT 2 


EE94 


7B 


MOV 


A,E 


EE95 


BD 


CMP 


L 


EE96 


C2A6EE 


JNZ 


ALT 2 


EE99 


2AF4F4 


LHLD 


BUFTRK 


EE9C 


22F8F4 


SHLD 


ALTTRK 


EE9F 


2AF6F4 


LHLD 


BUFSEC 


EEA2 


22FAF4 


SHLD 


ALTSEC 


EEA5 


C9 


RET 




EEA6 


E5 


ALT2: PUSH 


H 


EEA7 


79 


MOV 


A,C 


EEA8 


BE 


CMP 


M 


EEA9 


C2DBEE 


JNZ 


ALTMIS 


EEAC 


23 


INX 


H 


EEAD 


3AF4F4 


LDA 


BUFTRK 


EEB0 


BE 


CMP 


M 


EEBl 


C2DBEE 


JNZ 


ALTMIS 


EEB4 


23 


INX 


H 


EEB5 


3AF5F4 


LDA 


BUFTRK+1 


EEBB 


BE 


CMP 


M 


EEB9 


C2DBEE 


JNZ 


ALTMIS 


EEBC 


23 


INX 


H 


EEBD 


3AF6F4 


LDA 


BUFSEC 


EEC0 


BE 


CMP 


M 


EECl 


C2DBEE 


JNZ 


ALTMIS 


EEC4 


23 


INX 


H 


EEC 5 


3AF7F4 


LDA 


BUFSEC+1 


EECe 


BE 


CMP 


M 


EEC9 


C2DBEE 


JNZ 


ALTMIS 


EECC 


23 


INX 


H 


EECD 


11F8F4 


LXI 


D, ALTTRK 


EED0 


EB 


XCHG 




EEDl 


C5 


PUSH 


B 


EED2 


010400 


LXI 


B,4 


EED5 


CDE6EE 


CALL 


MOVBYT 


EED8 


CI 


POP 


B 


EED9 


El 


POP 


H 


EEDA 


C9 


RET 




EEDB 


El 


ALTMIS: POP 


H 


EEDC 


110900 


LXI 


D,9 


EEDF 


19 


DAD 


D 


EEE0 


C38AEE 


JMP 


ALL 



.♦ADDRESS OF BAD MAP -> (HL) 

;PICK UP DRIVE NUMBER CURRENTLY WORKING ON 

;MOVE DRIVE INTO (C) FOR SPEED IN SEARCH 

GET BAD MAP POINTER ' 

-> (DE) ' 

CHECK IF AT END OF BAD MAP TABLE 

; STILL MORE 



; STILL MORE 

;N0 ALTERNATE SECTOR SO USE SELECTED SECTOR 



# 



SAVE CURRENT BAD I4AP ENTRY ADDRESS 
MOVE DRIVE INTO (A) 
CHECK IF DRIVE IN TABLE MATCHES 
DOES NOT MATCH SKIP THIS ENTRY 
POINT TO LSB OF ALTERNATE TRACK 
PICK UP LSB OF BUFFER TRACK 



; POINT TO MSB ALTERNATE TRACK 
;PICK UP MSB OF BUFFER TRACK 



; POINT TO LSB OF ALTERNATE SECTOR 
;PICK UP LSB OF BUFFER SECTOR 



; POINT TO MSB OF ALTERNATE SECTOR 
;PICK UP MSB OF BUFFER SECTOR 

; FOUND AN ALTERNATE SECTOR 

; POINT TO REAL INFO ON THE ALTERNA^TE SECTOR 

;MOVLOP (DE) = SOURCE, (HL) = DEST 



;MOVE ALTERNATE SECTOR INFO IN CORRECT PLACE 



; CURRENT ALTERNATE DID NOT MATCH i 
;BUMP POINTER BY THE LENGTH OF AN ENTRY 

;LOOP FOR MORE 



# 
# 



m 
# 
m 
m 
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***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * , 

***************************************************************** 

; LENGTH OF TRANSFER 

; CHECK IF HOST PROCESSOR IS A Z80 

;YES, ITS A Z80 SO USE BLOCK MOVE 

GET A BYTE OF SOURCE ! 

MOVE IT ; 

BUMP POINTERS 

; UPDATE COUNTER 
;TEST FOR END 



; SOURCE IN (HL) , DESTINATION IN (DE) 
;LDIR 



***************************************************************** 

* * 

* RETURN DPH POINTER. ENTER WITH (DE) WITH DPH BASE ADDRESS * 

* AND (A) WITH LOGICAL DRIVE NUMBER. RETUEINS WITH DPH ADDRESS * 

* 

* 



EEE3 


018000 


MOV128: 


LXI 


B,128 


EEE6 


AF 


MOVBYT : 


XRA 


A 


EEE7 


C603 




AD I 


3 


EEE9 


E2F7EE 




JPO 


Z80MOV 


EEEC 


lA 


M8080: 


LDAX 


D 


FEED 


77 




MOV 


M,A 


EEEE 


13 




I NX 


D 


EEEF 


23 




I NX 


H 


EEF0 


0B 




DCX 


B 


EEFl 


78 




MOV 


A,B 


EEF2 


Bl 




ORA 


C 


EEF3 


C2ECEE 




JNZ 


M8080 


EEF6 


C9 




RET 




EEF7 


EB 


Z80MOV: 


XCHG 




EEF8 


EDB0 




DW 


0B0EDH 


EEFA 


EB 




XCHG 




EEFB 


C9 




RET 





m 






* 
* 


IN 


) \j\) vtrrt 
(HL). 


1 JbU(jH 


m 






******************* 




EEFC 


6F 


RETDPH 


MOV 


L,A 


m 


EEFD 


2600 








MVI 


H,0 


EEFF 


29 








DAD 


H 




EF00 


29 








DAD 


H 


m ^ 


EF01 


29 








DAD 


H 


EF02 


29 








DAD 


H 




EF03 


19 








DAD 


D 


^ 


EF04 


C9 








RET 





.-MOVE LOGICAL DRIVE INTO (L) 
; MULTIPLY BY 16 (SIZE OF DPH) 

;(HL) = POINTER TO DPH 



# 



***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY (HL) * 

* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 






EF05 


7E 


MESSAGE: MOV 


A,M 


EF06 


23 


INX 


H 


EF07 


B7 


ORA 


A 


EF08 


C8 


RZ 





;GET A CHARACTER OF THE MESSAGE 
;BUMP TEXT POINTER 
•TEST FOR END 
; RETURN IF DONE 
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EF09 E5 
EF0A 4F 
EF0B CD0CEA 
EF0E El 
EF0F C305EF 



PUSH 


H 


MOV 


C,A 


CALL 


COUT 


POP 


H 


JMP 


MESSAGE 



SAVE POINTER TO TEXT 
OUTPUT CHARACTER IN C 
OUTPUT THE CHARACTER 
RESTORE THE POINTER 
CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* THE FOLLOWING CODE IS FOR THE DISKUS HARD DISK * 

* * 
***************************************************************** 



0050 

0050 

0050 
0051 
0051 
0052 
0052 
0053 





IF 


HDCA NE 


HDORG 


EQU 


50H 


HDSTAT 


EQU 


HDORG 


HDCNTL 


EQU 


HDORG 


HDRESLT 


EQU 


HDORG+1 


HDCMND 


EQU 


HDORG+1 


HDSKOMP 


EQU 


HDORG+2 


HDFUNC 


EQU 


HDORG+2 


HDDATA 


EQU 


HDORG+3 



;WANT HDC3 OR 4 CONTROLLER INCLUDED ? 

;HARD DISK CONTROLLER ORIGIN 

;DISK STATUS 

;DISK CONTROL 

;DISK RESULTS 

;DISK COMMANDS 

;SEEK COMPLETE CLEAR PORT (ON HDC4) 

; FUNCTION PORT 

.-DATA PORT 



STATUS PORT (50) 



0001 
0002 
0004 
0008 
0010 
0020 
0040 



0001 
0002 
0004 
0008 



TKZERO EQU 01H 

OPDONE EQU 02H 

COMPLT EQU 04H 

TMOUT EQU 08H 

WFAULT EQU 10H 

DRVRDY EQU 20H 

INDEX EQU 40H 

CONTROL PORT (50) 

HDFREN EQU 01H 

HDRUN EQU 02 H 

HDCLOK EQU 04H 

HDWPRT EQU 08H 



TRACK ZERO 
OPERATION DONE 
SEEK COMPLETE 
TIME OUT 
WRITE FAULT 
DRIVE READY 
DELTA INDEX 



ENABLE EXTERNAL DRIVERS 
ENABLE CONTROLLERS STATE , MACHINE 
CLOCK SOURCE CONTROL BIT, HIGH = DISK 
WRITE PROTECT A DRIVE 






0002 



0000 
0001 
0005 
0008 



0004 
00FB 



RESULT PORT (51) 
RETRY EQU 02 H 

COMMAND PORT (51) 



IDBUFF 


EQU 





RSECT 


EQU 


1 


WSECT 


EQU 


5 


ISBUFF 


EQU 


8 


• 


FUNCTION PORT (52) 


PSTEP 


EQU 


04H 


NSTEP 


EQU 


0FFH-PSTEP 



; RETRY FLAG 



INITIALIZE DATA BUFFER PQINTER 

READ SECTOR 

WRITE SECTOR 

INITIALIZE HEADER BUFFER POINTER 



;STEP BIT 
;STEP BIT MASK 
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00FC = 



0004 = 
0200 = 



HULL EQU 0FCH 

MISC CONSTANTS 

HDRLEN EQU 4 
SECLEN EQU 512 



;NULL COMMAND 



; SECTOR HEADER LENGTH 
; SECTOR DATA LENGTH 



# 



***************************************************************** 

* * 

* DEVICE SPECIFICATION TABLE FOR HDCA CONTROLLER DRIVER * 

* * 
***************************************************************** 



NUMBER OF LOGICAL DRIVES 

WARM BOOT 

SECTOR TRANSLATION 

FIRST TIME SELECT 

GENERAL SELECT 

HOME CURRENT SELECTED DRIVE 

SEEK TO SELECTED TRACK 

SELECT SECTOR 

SET DMA ADDRESS 

READ A SECTOR 

WRITE A SECTOR 

NO BAD SECTOR MAP 



EF12 


03 


HDDST : DB 


MAXHD*HDLOG 


EF13 


29EF 


DW 


HDWARM 


EF15 


5FEF 


DW 


HDTRAN 


EF17 


63EF 


DW 


HDLDRV 


EF19 


ABEF 


DW 


HDDRV 


EFIB 


BEEF 


DW 


HDHOME 


EFID 


CCEF 


DW 


HDSEEK 


EFIF 


00F0 


DW 


HDSEC 


EF21 


F0EF 


DW 


HDDMA 


EF23 


1EF0 


DW 


HDREAD 


EF25 


53F0 


DW 


HDWRITE 


EF27 


0BED 


DW 


NOBAD 


EF29 


CDA2EF 


HDWARM: CALL 


DIVLOG 


EF2C 


AF 


XRA 


A 


EF2D 


2100D2 


LXI 


H,CCP-200H 


EF30 


E5 


PUSH 


H 


EF31 


32EFF0 


STA 


HEAD 


EF34 


3C 


INR 


A 


EF35 


F5 


PUSH 


PSW 


EF36 


CDBIEF 


CALL 


HDD2 


EP39 


0E00 


MVI 


C,0 


EF3B 


CDBEEF 


CALL 


HDHOME 


EF3E 


Fl 


HDWRLD: POP 


PSW 


EF3F 


El 


POP 


H 


EF40 


3C 


INR 


A 


EF41 


32F0F0 


STA 


HDSECT 


EF44 


FE0D 


CPI 


13 


EF46 


ca 


RZ 




EF47 


24 


INR 


H 


EF48 


24 


INR 


H 


EF49 


22ECF0 


SHLD 


HDADD 


EF4C 


E5 


PUSH 


H 


EF4D 


F5 


PUSH 


PSW 


EF4E 


01000A 


HDWRRD: LXI 


B,RETRIES*100H+0 


EF51 


C5 


HDWR: PUSH 


B 


EF52 


CD1EF0 


CALL 


HDREAD 


EF55 


CI 


POP 


B 


EF56 


D23EEF 


JNC 


HDWRLD 


EF59 


05 


DCR 


B 


EF5A 


C251EF 


JNZ 


HDWR 


EF5D 


37 


STC 




EF5E 


C9 


RET 





;GET PHYSICAL DRIVE NUMBER IN (C) 

; INITIAL DMA ADDRESS 

; SELECT HEAD ZERO 

; 1 -> (A) 

;SAVE FIRST SECTOR - 1 

; SELECT DRIVE 

;HOME THE DRIVE 
; RESTORE SECTOR 
; RESTORE DMA ADDRESS 



;PAST BDOS ? 

;YES, ALL DONE 

; UPDATE DMA ADDRESS 



# 
# 



; RETRY COUNTER ' 

;SAVE THE RETRY COUNT 
;READ THE SECTOR 

TEST FOR ERROR 

UPDATE THE ERROR COUNT | 

KEEP TRYING IF NOT TOO MANY ERRORS 

ERROR FLAG 
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EF5F 


60 


HDTRAN: MOV 


H,B 


EF6i3 


69 


MOV 


L,C 


EF61 


23 


INX 


H 


EF62 


C9 


RET 




EF63 


32EBF0 


HDLDRV: STA 


HDCUR 


EF66 


CDA2EF 


CALL 


DIVLOG 


EF69 


79 


MOV 


A,C 


EF6A 


32EEF0 


STA 


HDDISK 


EF6D 


CDD2F0 


CALL 


HDPTR 


EF70 


7E 


MOV 


A,M 


EF71 


3C 


INR 


A 


EF72 


C295EF 


JNZ 


HDL2 


EF75 


F6FC 


OR I 


NULL 


EF77 


D352 


OUT 


HDFUNC 


EF79 


3E05 


MVI 


A, HDFREN+HDCLOK 


EF7B 


D350 


OUT 


HDCNTL 


EF7D 


0EEF 


MVI 


C,239 


EF7F 


210000 


LXI 


H,0 


EF82 


2B 


HDTDEL: DCX 


H 


EF83 


7C 


MOV 


A,H 


EFS4 


B5 


ORA 


L 


EF85 


CCA0EF 


CZ 


DCRC 


EF88 


CA81EC 


JZ 


ZRET 


EF8B 


DB50 


IN 


HDSTAT 


EFBD 


E620 


AN I 


DRVRDY 


EF8F 


C282EF 


JNZ 


HDTDEL 






IF 


NOT FUJITSU 






LXI 


H,0 






MVI 


C, INDEX 






IN 


HDSTAT 






ANA 


C 






MOV 


B,A 






HDINXD1:IN 


HDSTAT 






ANA 


C 






CMP 


B 






JZ 


HDINXDl 






HDINDX2 ; INX 


H 






IN 


HDSTAT 






ANA 


C 






CMP 


B 






JNZ 


HDINDX2 






IF 


M10 






DAD 


H 






END IF 








IF 


M26 






XRA 


A 






MOV 


A,H 






RAR 








MOV 


D,A 






MOV 


A,L 






RAR 





; SECTOR TRANSLATION IS HANDLED VIA 
PHYSICAL SECTOR HEADEjl SKEWWING 



;SAVE LOGICAL DISK i 

; DIVIDE BY LOGICAL DISKS PER DRIVE 

;SAVE NEW PHYSICAL DRIVE ' 

;GET TRACK POINTERS ; 

;GET CURRENT TRACK 

; CHECK IF -1 

;NOPE, ALLREADY ACCESSED 

; SELECT DRIVE 

j 

; ENABLE DRIVERS 

;WAIT 2 MINUTES FOR DISK kEADY 



m 



; DRIVE NOT READY ERROR 
;TEST IF READY YET 



;TIME OWE REVOLUTION OF THE DRIVE 



; SAVE CURRENT INDEX LEVEL IN B 



;LOOP UNTILL INDEX LEVEL CHANGES 



; START COUNTING UNTILL INDEX RETURNS TO 
; PREVIOUS STATE 



;MEMOREX M10'S HAVE 40 MS HEAD SETTLE 
;HL*2 



;SHUGART M26'S HAVE 30 MS HEAD SETTLE 
;HL/2 + HL (SAME AS HL*1.5) 






• 
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EF92 CDBEEF 

EF95 3AEBF0 HDL2: 
EF98 11FDF4 
EF9B 0E03 
EF9D C3FCEE 

EFA0 0D DCRC: 
EFAl C9 



MOV 
DAD 
ENDIF 

SHLD 
ENDIF 

CALL 

LDA 
LXI 
MVI 
JMP 

DCR 
RET 



E,A 
D 



SETTLE 



HDHOME 

HDCUR 
D,DPHHD0 
C,3 
RETDPH 



;SAVE THE COUNT FOR TIMEOtJT DELAY 



# 



;LOAD LOGICAL DRIVE 

; START OF HARD DISK DPH ' S 

;HARD DISK SECTOR SIZE EQUALS 512 BYTES 



; CONDITIONAL DECREMENT C ROUTINE 



EFA2 0E00 
EFA4 D603 
EFA6 D8 
EFA7 0C 
EFA8 C3A4EF 



EFAB 
EFAE 
EFBl 
EFB2 
EFB5 
EFB7 
EFB9 
EFBB 
EFBD 



32EBF0 

CDA2EF 

79 

32EEF0 

F6FC 

D352 

3E0F 

D350 

C9 



EFBE CDD2F0 
EFCl 3600 
EFC3 DB50 
EFC5 E601 
EFC7 C8 



DIVLOG: MVI 

DIVLX: SUI 

RC 

INR 

JMP 



HDDRV: 
HDD2 : 



STA 

CALL 

MOV 

STA 

ORI 

OUT 

MVI 

OUT 

RET 



HDHOME: CALL 
MVI 
IN 
AN I 
RZ 

IF 

HDSTEPO:IN 
ANI 
JZ 
MVI 
STC 
CALL 
JMP 



C,0 
HDLOG 

C 
DIVLX 

HDCUR 

DIVLOG 

A,C 

HDDISK 

NULL 

HDFUNC 

A, HDFREN+HDRUN+HDCLOK+HDWPRT 

HDCNTL 



;GET THE PHYSICAL DRIVE # 
; SELECT THE DRIVE 

; WRITE PROTECT 



HDPTR 
M,0 

HDSTAT 
TKZERO 



NOT FUJITSU 

HDSTAT 

TKZERO 

HDDELAY 

A,l 

ACCOK 
HDSTEPO 



;GET TRACK POINTER 
;SET TRACK TO ZERO 
;TEST STATUS 
;AT TRACK ZERO ? 
;YES 



;TEST STATUS 
;AT TRACK ZERO ? 



;TAKE ONE STEP OUT 



# 

# 



ELSE 



EFCa AF 
EFC9 C3DDEF 






XRA 

JMP 
ENDIF 

IF 
HDDELAY: LHLD 



A 
ACCOK 



NOT FUJITSU 
SETTLE 



;GET HDDELAY 



• 
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DELOOP : 


DCX 
MOV 
ORA 
INX 
DCX 
JNZ 
RET 
ENDIF 


H 

A,H 

L 

H 

H 

DELOOP 


EFCC 


CDD2F0 


HDSEEK: 


CALL 


HDPTR 


EFCF 


5E 




MOV 


E,M 


EFD0 


71 




MOV 


M,C 


EFDl 


7B 




MOV 


A,E 


EFD2 


91 




SUB 


C 


EFD3 


ca 




RZ 




EFD4 


3F 




CMC 




EFD5 


DADAEF 




JC 


HDTRK2 


EFD8 


2F 




CMA 




EFD9 


3C 




INR 
IF 


A 
FUJITSU 


EFDA 


C3DDEF 


HDTRK2 : 


JMP 
ELSE 


ACCOK 






HDTRK2 : 


CALL 

JMP 

ENDIF 


ACCOK 
HDDELAY 


EFDD 


47 


ACCOK: 


MOV 


B,A 


EFDE 


CDDDF0 




CALL 


BUILD 


EFEl 


E6FB 


SLOOP: 


ANI 


NSTEP 


EFE3 


D352 




OUT 


HDFUNC 


EFE5 


F604 




ORI 


PSTEP 


EFE7 


D352 




OUT 


HDFUNC 


EFE9 


05 




DCR 


B 


EFEA 


C2E1EF 




JNZ 


SLOOP 


EFED 


C3F6EF 




JMP 


WSDONE 


EFF0 


60 


HDDMA: 


MOV 


H,B 


EFFl 


69 




MOV 


L,C 


EFF2 


22ECF0 




SHLD 


HDADD 


EFF5 


C9 




RET 




EFF6 


DB50 


WSDONE : 


IN 


HDSTAT 


EFF8 


E604 




ANI 


COMPLT 


EFFA 


CAF6EF 




JZ 


WSDONE 


EFFD 
EFFF 


DB52 
C9 




IN 
RET 

IF 


HDSKOMP 
M26 






HDSEC: 


MVI 

ANA 

CZ 

STA 

MVI 

ANA 

RLC 


A,01FH 

C 

GETSPT 
HDSECT 
A,0E0H 
C 
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I 

;VJAIT 20MS 



m 
m 



;GET POINTER TO CURRENT T^IACK 

;GET CURRENT TRACK 

; UPDATE THE TRACK 

;NEED TO SEEK AT ALL ? i 



;GET CARRY INTO DIRECTION 



;PREP FOR BUILD 

;GET STEP PULSE LOW 

.-OUTPUT LOW STEP LINE 

;SET STEP LINE HIGH 

.•OUTPUT HIGH STEP LINE 

.•UPDATE REPEAT COUNT 

.•KEEP GOING THE REQUIRED i OF TRACKS 



.-SAVE THE DMA ADDRESS 



m 



.-WAIT FOR SEEK COMPLETE TO FINISH 



.•CLEAR SDONE BIT ON AN HDCA4 



;FOR COMPATIBILITY WITH C6lOS REVS. 
; 2.3 AND 2.4 

;MASK IN SECTOR NUMBER (0-31) 
.•TRANSLATE SECTOR TO SECTOR 32 
;SAVE TRANSLATED SECTOR NUMBER (1-32) 
;GET THE HEAD NUMBER 



m 
m 



m 
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GETSPTj 



#051 

RLC 
RLC 
STA 
MVI 
RET 

ELSE 
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HEAD 
A,HDSPT 



F000 


79 


HDSEC : MOV 


A,C 


F001 


CD15F0 


CALL 


DIVSPT 


F004 


C615 


AD I 


HDSPT 


F006 


A7 


ANA 


A 


F007 


CC11F0 


CZ 


GETSPT 


F00A 


32F0F0 


STA 


HDSECT 


F00D 


79 


MOV 


A,C 


F00E 


32EFF0 


STA 


HEAD 


F011 


3E15 


GETSPT: MVI 


A, HDSPT 


F013 


0D 


DCR 


C 


F014 


C9 


RET 




F015 


0E00 


DIVSPT: MVI 


C,0 


F017 


D515 


DIVSX: SUI 


HDSPT 


F019 


D8 


RC 




F01A 


0C 


INR 


C 


F01B 


C317F0 


JMP 
END IF 


DIVSX 


F01E 


CD9CF0 


HDREAD: CALL 


HDPREP 


F021 


DB 


RC 




F022 


AF 


XRA 


A 


F023 


D351 


OUT 


HDCMND 


F025 


2F 


CMA 




F026 


D353 


OUT 


HDDATA 


F028 


D353 


OUT 


HDDATA 


F02A 


3E01 


MVI 


A, RSECT 


F02C 


D351 


OUT 


HDCMND 


F02E 


CD82F0 


CALL 


PROCESS 


F031 


D8 


RC 




F032 


AF 


XRA 


A 


F033 


D351 


OUT 


HDCMND 


F035 


0680 


MVI 


b,se;clen/4 


F037 


2AECF0 


LHLD 


HDADD 


F03A 


DBS 3 


IN 


HDDATA 


F03C 


DBS 3 


IN 


HDDATA 


F03E 


DB53 


RTLOOP : IN 


HDDATA 


F040 


77 


MOV 


M,A 


F041 


23 


INX 


H 


F042 


DBS 3 


, IN 


HDDATA 


F044 


77 


MOV 


M,A 


F045 


23 


INX 


H 


F046 


DB53 


IN 


HDDATA 


F048 


77 


MOV 


M,A 


F049 


23 


INX 


H 


F04A 


DBS 3 


IN 


HDDATA 


F04C 


77 


MOV 


M,A 


F04D 


23 


INX 


H 



;SAVE THE HEAD NUMBER 



m 



;READ SECTOR COMMAND 



;MOVE FOUR BYTES 



m 
m 
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# 



F04E 


05 


DCR 


B 


F04F 


C23EF0 


JNZ 


RTLOOP 


F052 


C9 


RET 




F053 


CD9CF0 


HDWRITE:CALL 


HDPREP 


F056 


D8 


RC 




F057 


AF 


XRA 


A 


F058 


D351 


OUT 


HDCMND 


F05A 


2AECF0 


LHLD 


HDADD 


F05D 


0680 


MVI 


B,SECLEN/4 


F05F 


7E 


WTLOOP: MOV 


A,M 


F060 


D353 


OUT 


HDDATA 


F062 


23 


INX 


H 


F063 


7E 


MOV 


A,M 


F064 


D353 


OUT 


HDDATA 


F066 


23 


INX 


H 


F067 


7E 


MOV 


A, M 


F068 


D353 


OUT 


HDDATA 


F06A 


23 


INX 


H 


F06B 


7E 


MOV 


A,M 


F06C 


D353 


OUT 


HDDATA 


F06E 


23 


INX 


H 


F06F 


05 


DCR 


B 


F070 


C25FF0 


JNZ 


WTLOOP 


F073 


3E05 


MVI 


A,WSECT 


F075 


D351 


OUT 


HDCMND 


F077 


CDB2F0 


CALL 


PROCESS 


F07A 


D8 


RC 




F07B 


3E10 


MVI 


A,WFAULT 


F07D 


A0 


ANA 


B 


F07E 


37 


STC 




F07F 


C8 


RZ 




F080 


AF 


XRA 


A 


F081 


C9 


RET 




F082 


DB50 


PROCESS: IN 


HDSTAT 


F084 


47 


MOV 


B,A 


F085 


E602 


ANI 


OP DONE 


F087 


CA82F0 


JZ 


PROCESS 


F08A 


3E07 


MVI 


A, HDFREN+HDRUN+HDCLOK 


F08C 


D350 


OUT 


HDCNTL 


F08E 


DB50 


IN 


HDSTAT 


F090 


E608 


ANI 


TMOUT 


F092 


37 


STC 




F093 


C0 


RNZ 




F094 


DB51 


IN 


HDRESLT 


F096 


E602 


ANI 


RETRY 


F098 


37 


STC 




F099 


C0 


RNZ 




F09A 


AF 


XRA 


A 


F09B 


C9 


RET 




F09C 


DB50 


HDP REP: IN 


HDSTAT 


F09E 


E620 


ANI 


DRVRDY 


F0A0 


37 


STC 




F0A1 


C0 


RNZ 





; PREPARE HEADER 



;MOVE 4 BYTES 



• 

m 



; ISSUE WRITE SECTOR COMMAlto 



;WAIT FOR COMMAND TO FINISH 



; WRITE PROTECT 



m 



; TIMED OUT ? 



;ANY RETRIES ? 



• 
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• 



F0A2 

F0A4 

F0A6 

F0A9 

F0AB 

F0AD 

F0B0 

F0B2 

F0B5 

F0B6 

F0B8 

F0B9 

F0BB 

F0BE 

F0C0 

F0C3 

F0C5 

F0C6 

F0C8 

F0CA 

F0CC 

F0CE 

F0D0 

F0D1 



3E08 

D351 

CDDDF0 

F60C 

D352 

3AEFF0 

D353 

CDD2F0 

7E 

D353 

A7 

0680 

CAC0F0 

0600 

3AF0F0 

D353 

78 

D353 

3E07 

D350 

3E0F 

D350 

AF 

C9 



F0D2 2AEEF0 
F0D5 2600 
F0D7 EB 
F0D8 21F1F0 
F0DB 19 
F0DC C9 

F0DD 3AEFF0 
F0E0 17 
F0E1 17 
F0E2 17 
F0E3 17 
F0E4 21EEF0 
F0E7 B6 
F0EB EEF0 
F0EA C9 

F0EB 00 
F0EC 0000 
F0EE 00 
F0EF 00 

F0P0 00 

F0F1 FF 

F0F2 FF 

F0F3 FF 

F0F4 FF 

F0F5 0000 



MVI 
OUT 
CALL 
ORI 
OUT 
LDA 
OUT 
CALL 
MOV 
OUT 
ANA 
MVI 
JZ 
MVI 
ZKEY: LDA 
OUT 
MOV 
OUT 
MVI 
OUT 
MVI 
OUT 
XRA 
RET 

HDPTR: LHLD 
MVI 
XCHG 
LXI 
DAD 
RET 

BUILD: LDA 
RAL 
RAL 
RAL 
RAL 
LXI 
ORA 
XRI 
RET 

HDCUR: DB 

HDADD: DW 

HDDISK: DB 

HEAD: DB 

HDSECT: DB 

HDTRAK: DB 
DB 
DB 
DB 

SETTLE: DW 

ENDIF 



;FORM HEAD BYTE ' 

;GET POINTER TO CURRENT DRIVES TRACK 

;FORM TRACK BYTE 



A,ISBUFF ; INITIALIZE POINTER 

HDCMND 

BUILD 

0CH 

HDFUNC 

HEAD 

HDDATA 

HDPTR 

A,M 

HDDATA 

A 

B,80H 

ZKEY 

B,0 

HDSECT 

HDDATA 

A,B 

HDDATA 

A, HDFREN+HDRUN+HDCLOK 

HDCNTL 

A, HDFREN+HDRUN+HDCLOK+HDWPRT ;WRITE PROTECT 

HDCNTL 

A 



;FORM SECTOR BYTE 



; WRITE PROTECT 



HDDISK 
H,0 

H, HDTRAK 
D 



HEAD 



H, HDDISK 

M 

0F0H 










0FFH 
0FFH 
0FFH 
0FFH 



;GET A POINTER TO THE CURRENT DRIVES 
TRACK POSITION i 



; BUILD A CONTROLLER COMMAND BYTE 







; CURRENT LOGICAL DISK 

;DMA ADDRESS 

.•CURRENT PHYSICAL DISK NUMBER 

; CURRENT PHYSICAL HEAD NUl^lBER 

; CURRENT PHYSICAL SECTOR NUMBER 

TRACK POINTER FOR EACH DklVE 
ALL DRIVE DEFAULT TO AN UNCALIBRATED 
STATE (FF) 



;TIME DELAY CONSTANT FOR HEAD SETTLE 
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* * 

* THE FOLLOWING EQUATES RELATE THE MORROW DESIGNS 2D/B * 

* CONTROLLER. IF THE CONTROLLER IS NON STANDARD (0F800H) * 

* ONLY THE FDORIG EQUATE NEED BE CHANGED. * 

* * 

***ie******1c****ie***********ie***1ci(ie***ie*1i1t*****ic*1e**1e************* 



INCLUDE DISCUS 2D ? [ 

ORIGIN OF DISK JOCKEY PROM 

DISK JOCKEY 2D INITIALIZATION 

DISK JOCKEY 2D CHARACTER INPUT ROUTINE 

DISK JOCKEY 2D CHARACTER OUTPUT ^OUTINE 

DISK JOCKEY 2D TRACK ZERO SEEK 

DISK JOCKEY 2D TRACK SEEK ROUTINE 

DISK JOCKEY 2D SET SECTOR ROUTINE 

DISK JOCKEY 2D SET DMA ADDRESS 

DISK JOCKEY 2D READ ROUTINE 

DISK JOCKEY 2D WRITE ROUTINE 

DISK JOCKEY 2D SELECT DRIVE ROUTINE 

DISK JOCKEY 2D TERMINAL STATUS ROUTINE 

DISK JOCKEY 2D STATUS ROUTINE 

DISK JOCKEY 2D ERROR, FLASH LED 

DISK JOCKEY 2D SET DENSITY ROUTINE 

DISK JOCKEY 2D SET SIDE ROUTINE 

DISK JOCKEY 2D RAM ADDRESS 

SIDE BIT FROM CONTROLLER 

START OF I/O REGISTERS 



****ic*1e******ie***************1c***1c********ic******1t********ic***1c** 

* * 

* DEVICE SPECIFICATION TABLE FOR THE DISK JOCKEY 2D/B * 

* * 





IF 


MAXFD NE 


FDORIG 


EQU 


0F800H 


FDBOOT 


EQU 


FDORIG+00H 


FDCIN 


EQU 


FDORIG+03H 


FDCOUT 


EQU 


FDORIG+06H 


FDHOME 


EQU 


FDORIG+09H 


FDSEEK 


EQU 


FDORIG+0CH 


FDSEC 


EQU 


FDORIG+0FH 


FDDMA 


EQU 


FD0RIG+12H 


FDREAD 


EQU 


FDORIG+15H 


FDWRITE 


EQU 


FD0RIG+18H 


FDSEL 


EQU 


FDORIG+IBH 


FDTSTAT 


EQU 


FDORIG+21H 


FDSTAT 


EQU 


FDORIG+2 7H 


FDERR 


EQU 


FD0RIG+2AH 


FDDEN 


EQU 


FD0RIG+2DH 


FDSIDE 


EQU 


FDORIG+30H 


FDRAM 


EQU 


FDORIG+400H 


DBLSID 


EQU 


20H 


10 


EQU 


FDORIG+3F8H 


DREG 


EQU 


lO+l 


CMDREG 


EQU 


10+4 


CLRCMD 


EQU 


0D0H 



# 
m 
# 
# 



NUMBER OF LOGICAL DRIVES 

WARM BOOT 

SECTOR TRAl^SLATION 

SELECT DRIVE 1 

SELECT DRIVE 2 

HOME DRIVE 

SEEK TO SPECIFIED TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ A SECTOR 

WRITE A SECTOR 

NO BAD SECTOR MAP 



* * 

* FLOPPY DISK WARM BOOT LOADER * 

* * 



FDDST : DB 


MAXFD 


DW 


FDWARM 


DW 


FDTRAN 


DW 


FDLDRV 


DW 


FDSEL2 


DV? 


FDLHOME 


DW 


FDSEEK 


DW 


FDSSEC 


DW 


FDDMA 


DW 


FDREAD 


DW 


FDWRITE 


DW 


NOBAD 



m 
m 
m 



FDWARM: MOV 


C,A 


CALL 


FDSEL 


MVI 


C,0 


CALL 


FDSIDE 


WRMFAIL : CALL 


FDHOME 


JC 


VifRMFAIL 
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; SELECT DRIVE A 
.•SELECT SIDE 

.-TRACK 0, SINGLE DENSITY 
;LOOP IF ERROR 

.-THE NEXT BLOCK OF CODE RE-INITIAlf^IZES 

THE WARM BOOT LOADER FOR TRACK 
; INITIALIZE THE SECTOR TO READ - 2 

I 

.•FIRST REVOLUTION DMA - 100H 

.-LOAD ALL OF TRACK 

; FIRST SECTOR - 2 

.•UPDATE SECTOR # 

.•SIZE OF TRACK IN SECTORS + 1 

;SKIP IF NOT AT END OF TRACK 

.-DONE WITH THIS TRACK 

;BACK UP TO SECTOR 6 

.-MEMORY ADDRESS OF SECTOR - 100H 

;SAVE THE UPDATED SECTOR # 

.-SET UP THE SECTOR 

.•MEMORY ADDRESS OF SECTOR - 100H : 

.-UPDATE DMA ADDRESS 

,-SAVE THE UPDATED DMA ADDRESS 



.-SET UP THE NEW DMA ADDRESS 
.00H+0,- MAXIMUM # OF ERRORS, TRACK # 

.-SET UP THE PROPER TRACK 
;READ THE SECTOR 

.-CONTINUE IF NO ERROR 

;KEEP TRYING IF ERROR 

.-TOO MANY ERRORS, FLASH THE LIGHT 

.-LOAD TRACK 1, SECTOR 1, SECTOR 3 (PARTIAL), SECTOR 2 (1024 BYTE SECTORS) 

.-TRACK 1 

.-ADDRESS FOR SECTOR 1 
.-RETRY COUNT + SECTOR 1 

.•ADDRESS FOR SECTOR 2 








MVI 


A, 5-2 




STA 


NEWSEC 




LXI 


H,CCP-100H 




SHLD 


NEWDMA 


T0BOOT: 


MVI 


A, 5-2 


NEWSEC 


EQU 


?-l 




INR 


A 




INR 


A 




CPI 


27 




JC 


NOWRAP 




JNZ 


TIBOOT 




SUI 


27-6 




LXI 


H,CCP-80H 




SHLD 


NEWDMA 


NOWRAP : 


STA 


NEWSEC 




MOV 


C,A 




CALL 


FDSEC 




LXI 


H, CCP-100H 


NEWDMA 


EQU 


$-2 




LXI 


D, 100H 




DAD 


D 


NOIWP: 


SHLD 


NEWDMA 




MOV 


B,H 




MOV 


C,L 




CALL 


FDDMA 




LXI 


B, RETRIES* 


WRMFRED 


:PUSH 


B 




CALL 


FDSEEK 




CALL 


FDREAD 




POP 


B 




JNC 


T0BOOT 




DCR 


B 




JNZ 


WRMFRED 




JMP 


FDERR 



TIBOOT: MVI 


c,i 


CALL 


FDSEEK 


LXI 


B,CCP+0B00H 


LXI 


D, I0*100H+1 


CALL 


WRMREAD 


LXI 


B,CCP+0F00H 
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; RETRY COUNT + SECTOR 3 \ 



;SIZE OF PARTIAL SECTOR 
; ADDRESS FOR SECTOR 3 
.•ADDRESS OF SECTOR 3 

;GET A BYTE AND 
; SAVE IT 
;BUMP POINTERS 

;BUMP COUNTER 
; CHECK IF DONE 

IF NOT, LOOP 

.•ADDRESS FOR SECTOR 2 
; RETRY COUNT + SECTOR 2 



; CLEAR ERROR INDICATOR 



SET DMA ADDRESS 

SET SECTOR 

SAVE ERROR COUNT 

READ A SECTOR 

DO RETRY STUFF ON ERROR 

SECTOR SIZE MUST BE 1024 BYTES 

MASK LENGTH BITS 

CARRY (ERROR) WILL BE SET IF < 0C0H 

FETCH RETRY COUNT 

RETURN IF NO ERROR 

BUMP ERROR COUNT 

ERROR, FLASH THE LIGHT 



;SAVE TABLE ADDRESS 
.-SAVE SECTOR # 
;GET DPH FOR CURRENT DRIVE 
;LOAD DPH POINTER 



LXI 


D,10*100H+3 


CALL 


WRMREAD 


LXI 


B,0300H 


LXI 


D,CCP+1300H 


LXI 


H,CCP+0F00H 


WRMCPY: MOV 


A,M 


STAX 


D 


INX 


D 


I NX 


H 


DCX 


B 


MOV 


A,B 


ORA 


C 


JNZ 


WRMCPY 


LXI 


B,CCP+0F00H 


LXI 


D,10*100H+2 


CALL 


WRMREAD 


XRA 


A 


RET 




WRMREAD:PUSH 


D 


CALL 


FDDMA 


POP 


B 


CALL 


FDSEC 


WRMFRD: PUSH 


B 


CALL 


FDREAD 


JC 


VJRMERR 


CALL 


FDSTAT 


ANI 


0CH 


SUI 


0CH 


WRMERR: POP 


B 


RNC 




DCR 


B 


JNZ 


WRMFRD 


JMP 


FDERR 


FDTRAN: INX 


B 


PUSH 


D 


PUSH 


B 


CALL 


FDGET 


LXI 


D,10 


DAD 


D 


MOV 


A,M 


INX 


H 


MOV 


H,M 


MOV 


L,A 


MOV 


A,M 


ORA 


A 


RAR 




SUB 


C 


PUSH 


PSW 


JM 


SIDETWO 


SIDEA: POP 


PSW 



m 



m 
m 
m 
m 
m 
# 

# 



;GET # OF CP/M SECTORS/TRACK 

.•CLEAR CARRY 

.•DIVIDE BY TWO 

; SUBTRACT SECTOR NUMBER 

.•SAVE ADJUSTED SECTOR 

.•DISCARD ADJUSTED SECTOR 
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m 
# 






POP 


B 


POP 


D 


SIDEONErXCHG 




DAD 


B 


MOV 


L,M 


MVI 


H,0 


RET 




SIDETWOrCALL 


FDGSID 


JZ 


SIDEA 


POP 


PSW 


POP 


B 


CMA 




INR 


A 


MOV 


C,A 


POP 


D 


CALL 


SIDEONE 


MVI 


A, 80H 


ORA 


H 


MOV 


H,A 


RET 




FDLDRV: STA 


FDLOG 


MOV 


C,A 


MVI 


A,0 


FLOPFLG EQU 


$-1 


ANA 


A 


JNZ 


FLOPOK 


MVI 


B,17 


LXI 


H,FDBOOT 


MVI 


A, (JMP) 


CLOPP: CMP 


M 


JNZ 


ZRET 


INX 


H 


INX 


H 


INX 


H 


DCR 


B 


JNZ 


CLOPP 


LXI 


D,FDINIT 


LXI 


H,FDORIG+7E2H 


LXI 


B,30 


CALL 


MOVBYT 


MVI 


A,0FFH 


STA 


DREG 


MVI 


A, CLRCMD 


STA 


CMDREG 


MVI 


A,l 


STA 


FLOPFLG 


FLOPOK: CALL 


FLUSH 


LDA 


FDLOG 


MOV 


C,A 


CALL 


FDSEL 


CALL 


FDLHOME 


LXI 


H,l 



.-RESTORE SECTOR REQUESTED 
; RESTORE ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



CHECK OUT NUMBER OF SIDES 

SINGLE SIDED 

RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

1 
;MAKE NEW SECTOR THE REQUESTED SECTOR 



;SIDE TWO BIT 

AND SECTOR 



;SAVE LOGICAL DRIVE 

;SAVE DRIVE # 

;HAVE THE FLOPPIES BEEN ACCESSED YET ? 






.-FLOPPIES HAVN'T BEEN ACCESSED 

; CHECK IF 2D CONTROLLER IS INSTALLED 

;MUST HAVE 17 JUMPS 



; INITIALIZATION SEQUENCE 

;LOAD ADDRESS 

;BYTE COUNT 

;LOAD CONTROLLER RAM 

.-START 1791 

;1791 RESET 

.-SET 2D INITIALIZED FLAG 



.-FLUSH BUFFER SINCE WE ARE USING IT 
.-SELECT NEW DRIVE , 



; RECALIBRATE THE DRIVE 

; SELECT SECTOR 1 OF TRACK 2 



m 
m 
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SHLD 


TRUE SEC 


INX 


H 


SHLD 


CPMTRK 


XRA 


A 


STA 


RDWR 


CALL 


FILL 


JC 


ZRET 


CALL 


FDSTAT 


STA 


FDLDST 


ANI 


0CH 


PUSH 


PSW 


RAR 




LXI 


H,XLTS 


MOV 


E,A 


MVI 


D,0 


DAD 


D 


PUSH 


H 


CALL 


FDGET 


POP 


D 


LXI 


B,2 


CALL 


MOVBYT 


LXI 


D,8 


DAD 


D 


PUSH 


H 


CALL 


FDGSID 


LDA 


FDLDST 


ANI 


DHLS ID 


MOV 


M,A 


LXI 


D,DPB128S 


JZ 


SIDEOK 


LXI 


D,DPB128D 


SIDEOK: XCHG 




POP 


D 


POP 


PSW 


RAL 




RAL 




MOV 


C,A 


MVI 


B,0 


DAD 


B 


XCHG 




MOV 


M,E 


INX 


H 


MOV 


M,D 


LXI 


H,15 


DAD 


D 


MOV 


CM 


FDGET : LDA 


FDLOG 


LXI 


D,DPHFD0 


JMP 


RETDPH 


FDSEL2: STA 


FDLOG 


MOV 


C,A 


JMP 


FDSEL 


FDLHOME : MVI 


C,0 


CALL 


FDSIDE 



;MAKE SURE WE ARE DOING A READ 

FILL IN BUFFER WITH SECTOR 

TEST FOR ERROR RETURN 

GET STATUS ON CURRENT DRIVE 

SAVE DRIVE STATUS 

MASK IN SECTOR SIZE BITS 

USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



;SAVE POINTER TO PROPER XLT 
;GET POINTER TO PROPER DPH 

;COPY XLT POINTER INTO DPH 

; OFFSET TO DPB POINTER IN DPH 
;HL <- &DPH.DPB 

;GET POINTER TO SIDE FLAG TABLE ENTRY 

;GET DRIVE STATUS 

; CHECK DOUBLE SIDED BIT 

;SAVE SIDES FLAG 

;BASE FOR SINGLE SIDED DPB ' S 

;BASE OF DOUBLE SIDED DPB' S 

;(ilL) -> DPB BASE, (DE) -> &DPH.DPB 
; OFFSET TO CORRECT DPB 

;MAKE 0, 10, 20, 30 



MAKE OFFSET 

(HL) IS NOW A DPB POINTER 

PUT PROPER DPB ADDRESS IN DPH. DPB 



# 






; OFFSET TO DPB.SIZ 

; FETCH SECTOR SIZE CODE 
y RETURN PROPER DPH 



m 
m 
m 



; SELECT SIDE 
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# 








JMP 


FDHOME 


FDSSEC: 


PUSH 


B 




MOV 


A,B 




RLC 






ANI 


1 




MOV 


C,A 




CALL 


FDSIDE 




POP 


B 




JMP 


FDSEC 


FDGSID: 


LXI 


H, FDLSID 




LDA 


FDLOG 




PUSH 


D 




MOV 


E,A 




MVI 


D,0 




DAD 


D 




POP 


D 




MOV 


A,M 




ORA 


A 




RET 




FDINIT: 


DW 







DW 


1800H 




DW 







DB 







DB 







DB 


07 EH 




DB 







DB 


8 




DB 







DB 


9 




DB 


0FFH 




DB 


9 




DB 


0FFH 




DB 


9 




DB 


0FFH 




DB 


9 




DB 


0FFH 




DB 


9 




DB 







DB 


1 




DB 







DB 







DB 







DB 







DB 







DW 





FDLOG : 


DB 





FDLDST : 


DB 





FDLSID: 


REPT 


MAXFD 




DB 


0FFH 




ENDM 





;D0 ACTUAL HOME 

SAVE SECTOR NUMBER 
CHECK SIDE SELECT BIT 
MOVE HIGH BIT TO BIT ZERO 



;CALL SELECT SIDE = SIDE A, 1 = SIDE B 

j 

;SIDE FLAG TABLE 
J DRIVE NUMBER 

;MAKE OFFSET \ 

; OFFSET TO PROPER ENTRY 

;SET UP FLAGS 



INITIALIZATION BYTES LOADED ONTO 2D/B 

HEAD LOADED TIMEOUT 

DMA ADDRESS 

DOUBLE SIDED FLAG 

READ HEADER FLAG 

DRIVE SELECT CONSTANT 

DRIVE NUMBER 

CURRENT DISK \ 

HEAD LOADED FLAG 

DRIVE PARAMETERS 

DRIVE TRACK ADDRESS 



# 



DRIVE 


1 


PARAMETERS 


DRIVE 


1 


TRACK ADDRESS 


DRIVE 


2 


PARAMETERS 


DRIVE 


2 


TRACK ADDRESS 


DRIVE 


3 


PARAMETERS 


DRIVE 


3 


TRACK ADDRESS 


CURRENT 


PARAMETERS 


SIDE DESIRED 


SECTOR DESIRED 


TRACK 


DESIRED 



# 

# 



; HEADER IMAGE, TRACK 

; SECTOR 

;SIDE 

; SECTOR 

;CRC 



.•FLOPPY DRIVE STATUS BYTE 



; DOUBLE SIDED FLAG = SINGLE, 1 f DOUBLE 
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EMDIF 

IF (MAXFD NE 0) OR (MAXDM NE 0) 

*************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * '< 

***************************************************************** 



F0F7 FFF0 
F0F9 lAFl 
F0FB 4FF1 
F0FD 8CF1 



DV^ 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 



F0FF 


00 XLT128: 


DB 


F100 


01070D1319 


DB 


F105 


050B1117 


DB 


F109 


03090F15 


DB 


F10D 


02080E141A 


DB 


F112 


060C1218 


DB 


F116 


040A1016 


DB 


FllA 


00 XLT256: 


DB 


FllB 


0102131425 


DB 


F121 


0304151627 


DB 


F127 


0506171829 


DB 


F12D 


0708191A2B . 


DB 


F133 


090A1B1C2D 


DB 


F139 


0B0C1D1E2F 


DB 


F13F 


0D0E1F2031 


DB 


F145 


0F10212233 


DB 


F14B 


11122324 


DB 


F14F 


00 XLT512: 


DB 


F150 


0102030411 


DB 


F158 


2122232431 


DB 


F160 


0506070815 


DB 


F168 


2526272835 


DB 


F170 


090A0B0C19 


DB 


F178 


292A2B2C39 


DB 


F180 


0D0E0F101D 


DB 


F188 


2D2E2F30 


DB 



XLTS: DV^ XLT128 ;XLT FOR 128 BYTE SECTORS 

;XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
;XLT FOR 1024 BYTE SECTORS 

***************************************************************** 

* * 

* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES * 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M * 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW * 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE * 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE * 

* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 

***************************************************************** 





1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 






# 

m 
m 



1,2,19,20,37,38 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,48 

13,14,31,32,49,50 

15,16,33,34,51,52 

17,18,35,36 



1,2,3,4,17,18,19,20 

33,34,35,36,49,53,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45,46,47,48 



m 



I 
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F18C 00 XLT124: DB 

F18D 0102030405 DB 

F195 191A1B1C1D DB 

F19D 3132333435 DB 

F1A5 090A0B0C0D DB 

FIAD 2122232425 DB 

F1B5 393A3B3C3D DB 

FIBD 1112131415 DB 

F1C5 292A2B2C2D DB 





1,2.3,4,5,6,7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 



***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. * 

* * 

***************************************************************** 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



# 



FICD 1A00 


DPB123S:DW 


26 


FICF 03 


DB 


3 


F1D0 07 


DB 


7 


FlDl 00 


DB 





F1D2 F200 


DW 


242 


F1D4 3F00 


DW 


63 


F1D6 C0 


DB 


0C0H 


F1D7 00 


DB 





F1D8 1000 


DW 


16 


FIDA 0200 


DW 


2 


FIDC 01 


DB 


1 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

128 BYTE SECTORS 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 

;256 BYTE SECTORS 



FIDO 3400 


DPB256S:DW 


52 


FIDF 04 


DB 


4 


F1E0 0F 


DB 


15 


FlEl 01 


DB 


1 


F1E2 F200 


DW 


242 


F1E4 7F00 


DW 


127 


F1E6 C0 


DB 


0C0H 


F1E7 00 


DB 





F1E8 2000 


DW 


32 


FlEA 0200 


DW 


2 


FlEC 02 


DB 


2 



***************************************************************** 



cp/m macro ASSEM 2.0 



#062 



CHIOS Revision E for CP/M Version 2.2 - March 4, 1982 



* 

* 

* * 

***************************************************************** 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 

* DOUBLE DENSITY, AND SINGLE SIDED. 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

512 BYTE SECTORS 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



FIED 3C00 


DPB512S:DW 


60 


FIEF 04 


DB 


4 


F1F0 0F 


DB 


15 


FlFl 00 


DB 





F1F2 1801 


DW 


280 


F1F4 7F00 


DW 


127 


F1F6 C0 


DB 


0C0H 


F1F7 00 


DB 





F1F8 2000 


DW 


32 


FIFA 0200 


DW 


2 


FIFC 03 


DB 


3 



m 



FIFD 4000 


DP1024S:DW 


64 


FIFF 04 


DB 


4 


F200 0F 


DB 


15 


F201 00 


DB 





F202 2B01 


DW 


299 


F204 7F00 


DW 


127 


F206 C0 


DB 


0C0H 


F207 00 


DB 





F208 2000 


DW 


32 


F20A 0200 


DW 


2 


F20C 04 


DB 


4 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

1024 BYTE SECTORS 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 
***************************************************************** 



F20D 3400 


DPB128D:DW 


52 


F20F 04 


DB 


4 


F210 0F 


DB 


15 


F211 01 


DB 


1 


F212 F200 


DW 


242 


F214 7F00 


DW 


127 


F216 C0 


DB 


0C0H 


F217 00 


DB 





F218 2000 


DW 


32 


F21A 0200 


DW 


2 


F21C 01 


DB 


1 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

128 BYTE SECTORS 



# 

m 
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1 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. *i 

***************************************************************** 






F21D 6600 


DPB256D:DW 


104 


F21F 04 


DB 


4 


F220 0F 


DB 


15 


F221 00 


DB 





F222 E601 


DW 


486 


F224 FF00 


DW 


255 


F226 F0 


DB 


0F0H 


F227 00 


DB 





F228 4000 


DW 


64 


F22A 0200 


DW 


2 


F22C 02 


DB 


2 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

256 BYTE SECTORS 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 
***************************************************************** 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

512 BYTE SECTORS 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. 



F22D 7800 


DPB512D:DW 


120 


F22F 04 


DB 


4 


F230 0F 


DB 


15 


F231 00 


DB 





F232 3102 


DW 


561 


F234 FF00 


DW 


255 


F236 F0 


DB 


0F0H 


F237 00 


DB 





F238 4000 


DW 


64 


F23A 0200 


DW 


2 


F23C 03 


DB 


3 



m 
m 






* 
* * 

***************************************************************** 



F23D 8000 


DP1024D:DW 


128 


F23F 04 


DB 


4 


F240 0F 


DB 


15 


F241 00 


DB 





F242 5702 


DW 


599 


F244 FF00 


DW 


255 


F246 F0 


DB 


0F0H 


F247 00 


DB 





F248 4000 


DW 


64 


F24A 0200 


DW 


2 


F24C 04 


DB 


4 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

1024 BYTE SECTORS 
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ENDIF 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE MORROW DESIGNS DJDMA * 

* CONTROLLER. * 

* * 

***************************************************************** 



m 



0050 = 
00EF = 

0020 = 

0021 = 

0022 = 

0023 = 

0024 = 

0025 = 

0026 = 

0027 = 

0028 = 

0029 = 
002A = 
002B = 
002C = 
002D = 
002E = 
00A0 = 
00A1 = 

0066 = 
01FF = 

0080 = 
0040 = 

003E = 





IF 


DMCHAN 


EQU 


DMKICK 


EQU 


RDSECT 


EQU 


WRSECT 


EQU 


GSTAT 


EQU 


DMSDMA 


EQU 


INTRQC 


EQU 


DMHALTC 


EQU 


BRACHA 


EQU 


SETCHA 


EQU 


SETCRC 


EQU 


RDTRCK 


EQU 


VJRTRCK 


EQU 


SEROUT 


EQU 


SENABL 


EQU 


TRKSIZ 


EQU 


SETLOG 


EQU 


READM 


EQU 


WRITEM 


EQU 


DMFSTP 


EQU 


DMFSET 


EQU 



(MAXDM NE 0) OR (MAXMF NE 0) 

50H ; DEFAULT CHANNEL ADDRESS 

0EFH ;KICK l/O PORT ADDRESS 



N$DUBL EQU 
N§2SIDE EQU 

SERIN EQU 



20H 
21H 
22H 
23H 

24H 

25H 

26H 

27H 

28H 

29H 

2AH 

2BH 

2CH 

2DH 

2EH 

0A0H 

0A1H 

3*341/10 
15*341/10 

80H 
40H 

03EH 



READ SECTOR COMMAND 

WRITE A SECTOR COMMAND \ 

GET DRIVE STATUS | 

SET DMA ADDRESS 

SET INTERRUPT REQUEST 

HALT COMMAND ! 

CHANNEL BRANCH 

SET CHANNEL ADDRESS 

SET CRC RETRY COUNT 

READ TRACK COMMAND | 

WRITE TRACK COMMAND 

SERIAL OUPUT THROUGH BIT BANGER SERIAL PORT 

ENABLE SERIAL INPUT ' 

SET NUMBER OF TRACKS 

SET LOGICAL DRIVES j 

READ FROM CONTROLLER MEMORY | 

WRITE TO CONTROLLER MEMORY 

;FAST STEPPING RATE CONSTANT IS 3iMS * 34.1 
;FAST SETTLING RATE CONSTANT IS 15 MS * 34.1 

; DOUBLE DENSITY 
;2 SIDED DRIVE 

; ADDRESS OF SERIAL INPUT DATA, (STATUS - 1) 



# 



m 
m 



***********************J***************************************** 

* * 

* DEVICE SPECIFICATION TABLE FOR THE DISK JOCKEY DMA FLOPPY * 

* * 
***************************************************************** 





IF 


MAXDM NE 


F24D 01 DMDST: DB 


MAXDM 


F24E 64F2 


DVJ 


DMWARM 


F250 DEF2 


DW 


EMTRAN 


F252 13F3 


DW 


DMLDRV 


F254 D6F2 


DW 


DMSELR 


F256 3CF4 


DW 


DMHOME 


F258 3EF4 


DW 


DMSEEK 


F25A AEF3 


DW 


DM S SEC 


F25C BBF3 


DW 


DMDMA 



; NUMBER OF LOGICAL DRIVES 

;WARM BOOT 

; SECTOR TRANSLATION 

; SELECT DRIVE 1 

; SELECT DRIVE 2 

;HOME DRIVE 

;SEEK TO SPECIFIED TRACK 

;SET SECTOR 

;SET DMA ADDRESS 



CP/M MACRO ASSEM 2.0 



#065 



CBIOS Revision E for CP/M Version 2.2 - March 4, |982 



F25E 


9FF4 


DW 


DMREAD 


F260 


9CF4 


DW 


DMWRITE 


F262 


0BED 


DW 


NOBAD 


0B00 


= 


DMTRCK EQU 


22*128 


F264 


CDD6F2 


DMWARM: CALL 


DMSELR 


F267 


215000 


LXI 


H,DMCHAN 


F26A 


3626 


MVI 


M,BRACHA 


F26C 


23 


I NX 


H 


F26D 


3691 


MVI 


M, (LOW DMWCl 


F26F 


23 


I NX 


H 


F270 


36F2 


MVI 


M, (HIGH DMW 


F272 


23 


I NX 


H 


F273 


3600 


MVI 


M,0 


F275 


21B0F2 


DMWBAD: LXI 


H, DMWEND- 1 


F278 


CDC4F3 


CALL 


DOCMD 


F27B 


3A9CF2 


LDA 


DMWST 


F27E 


E640 


ANI 


40H 


F280 


CA75F2 


JZ 


DMWBAD 


F283 


010003 


LXI 


B,300H 


F286 


116DF5 


LXI 


D, BUFFER 


F289 


2100E7 


LXI 


H,CCP+1300H 


F28C 


CDE6EE 


CALL 


MOVBYT 


F28F 


AF 


XRA 


A 


F290 


C9 


RET 




F291 


23 


DMV/CHN: DB 


DMSDMA 


F292 


00D2 


DW 


CCP-512 


F294 


00 


DB 





F295 


29 


DB 


RDTRCK 


F296 


00 


DB 





F297 


00 


DB 





F29S 


00 


DB 





F299 


B4F2 


DW 


DMWSEC 


F29B 


00 


DB 





F29C 


00 


DMWST : DB 





F29D 


23 


DB 


DMSDMA 


F29E 


00DF 


DW 


CCP+DMTRCK 


F2A0 


00 


DB 





F2A1 


29 


DB 


RDTRCK 


F2A2 


01 


DB 


1 


F2A3 


00 


DB 





F2A4 


00 


DB 





F2A5 


GEF2 


DW 


DMWSEC+26 


F2A7 


00 


DB 





F2A8 


00 


DB 





F2A9 


23 


DB 


DMSDMA 


F2AA 


6DF5 


DW 


BUFFER 


F2AC 


00 


DB 





F2AD 


20 


DB 


RDSECT 


F2AE 


01 


DB 


1 


F2AF 


03 


DB 


3 


F2B0 


00 


DB 





F2B1 


00 


DMWEND: DB 





F2B2 


0000 


DW 






;READ A SECTOR 
; WRITE A SECTOR 
;NO BAD SECTOR MAP 

; AMOUNT OF CODE ON TRACK 

; SELECT DRIVE 
;SET UP BRANCH 






; POINTER TO END OF COMMAND STRUCTURE 
;READ IN TRACKS 

;GET TRACK READ STATUS 

I 

LOOP ON 'TERRIBLE' ERRORS LIKE NO DISK 
3/4 K BYTES OF SECTOR 3 NEEDS TO ; BE MOVED 
SECTOR 3 IS IN OUR BUFFER 

AND THIS IS WHERE WE WANT IT TQ GO. . . 



;SET TRACK DMA ADDRESS 

; FIRST TRACK DMA ADDRESS - BOOT LOADER 

;READ TRACK COMMAND 

; TRACK 

;SIDE 

; DRIVE ; 

; SECTOR LOAD/ STATUS MAP 

; TRACK READ STATUS 

;Dt4A ADDRESS FOR TRACK 1 



TRACK 1 

SIDE 

DRIVE 

MAP IS LOADED RIGHT AFTER TRACK STATUS MAP 

; TRACK READ STATUS 

; SECTOR 3 GETS LOADED IN SYSTEM BUFFER 



; TRACK 1 

;SIDE 0, SECTOR 3 

; DRIVE 

;READ STATUS 

;ROOM FOR THE HALT 



m 
m 
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F2B4 FFFFFFFF DMWSEC: DW 
F2B8 0000000000 DW 
F2CE 0000FFFFFF DW 



F2D6 32E6F4 
F2D9 0600 
F2DB C39EF3 



DMSELR: STA 
MVI 
JMP 



0FFFFH, 0FFFFH ;D0 NOT LOAD BOOT ; LOADER 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ;22 SECTORS TO BE : LOADED 
0, 0FFFFH, 0FFFFH, 0FFFFH ; FIRST 2 SECTORS ON TRACK 2 



DMLOG 

B,0 

DMSEL2 



;8 INCH LOGICAL DRIVES START AT Z?RO 



F2DE 
F2DF 
F2E0 
F2E1 
F2E4 
F2E7 
F2E8 
F2E9 
F2EA 
F2EB 
F2EC 
F2ED 
F2EE 
F2EF 
F2F0 
F2F1 
F2F4 
F2F5 
F2F6 
F2F7 
F2F8 
F2F9 
F2FA 
F2FC 



03 

D5 

C5 

CD71F3 

110A00 

19 

7E 

23 

66 

6F 

7E 

B7 

IF 

91 

F5 

FAFDF2 

Fl 

CI 

Dl 

EB 

09 

6E 

2600 

C9 



DMTRAN : INX 
PUSH 
PUSH 
CALL 
LXI 
DAD 
MOV 
INX 
MOV 
MOV 
MOV 
ORA 
RAR 
SUB 
PUSH 
JM 

DMSIDEA:POP 
POP 
POP 

DMSIDElrXCHG 
DAD 
MOV 
MVI 
RET 



B 

D 

B 

DMGET 

D,10 

D 

A,M 

H 

H,M 

L,A 

A,M 

A 

C 

PSW 

DMSIDE2 

PSV7 

B 

D 

B 

L,M 

H,0 



;SAVE TABLE ADDRESS 
;SAVE SECTOR # 



;GET # OF CP/M SECTORS/TRACK 

.-CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

.-DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
.-RESTOR ADDRESS OF XLT TABLE 
;HL <- &( TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



m 
m 



F2FD 
F300 
F302 
F305 
F306 
F307 
F308 
F309 
F30A 
F30B 
F30E 
F310 
F311 
F312 



CD5FF4 

E620 

CAF4F2 

Fl 

CI 

2F 

3C 

4F 

Dl 

CDF7F2 

3Ea0 

B4 

67 

C9 



F313 32E&F4 
F316 CDD3F3 
F319 DA81EC 
F31C 210100 
F31F 22F0F4 
F322 23 
F323 22EEF4 



DMSIDE2:CALL 
ANI 
JZ 
POP 
POP 
CMA 
INR 
MOV 
POP 
CALL 
MVI 
ORA 
MOV 
RET 

DMLDRV: STA 
CALL 
JC 
LXI 
SHLD 
INX 
SHLD 



DMSTAT 

20H 

DMSIDEA 

PSW 

B 

A 

C,A 

D 

DMSIDEl 

A, 80H 

H 

H,A 



DMLOG 

DMINIT 

ZRET 

H,l 

TRUESEC 

H 

CPMTRK 



.-RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

.-MAKE NEW SECTOR THE REQUESTED SECTOR 



.-SIDE TWO BIT 

Al^D SECTOR 



.•TEST FOR A DRIVE 

.-SELECT SECTOR 1 OF TRACK 2 



m 
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F326 


AF 


F327 


3274ED 


F32A 


CDF0ED 


F32D 


DA81EC 


F330 


CD5FF4 


F333 


E60C 


F335 


F5 


F336 


IF 


F337 


21F7F0 


F33A 


5F 


F33B 


1600 


F33D 


19 


F33E 


E5 


F33F 


CD71F3 


F342 


Dl 


F343 


010200 


F346 


CDE6EE 


F349 


110800 


F34C 


19 


F34D 


E5 


F34E 


CD5FF4 


F351 


E620 


F353 


llCDFl 


F356 


CA5FF3 


F359 


CD7AF3 


F35C 


110DF2 


F35F 


EB 


F360 


Dl 


F361 


Fl 


F362 


17 


F363 


17 


F364 


4F 


F365 


0600 


F367 


09 


F368 


EB 


F369 


73 


F36A 


23 


F36B 


72 


F36C 


210F00 


F36F 


19 


F370 


4E 


F371 


3AE6F4 


F374 


115DF5 


F377 


C3FCEE 
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;MAKE SURE WE ARE DOING A READ 

; FLUSH BUFFER AND REFILL ! 

-TEST FOR ERROR RETURN 

! 

;GET STATUS ON CURRENT DRIVE 
;MASK IN SECTOR SIZE BITS 
;USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



;SAVE POINTER TO PROPER XLT 



DMSOK: 



DMGET ! 



XRA 


A 


STA 


RDWR 


CALL 


FILL 


JC 


ZRET 


CALL 


DMSTAT 


ANI 


0CH 


PUSH 


PSW 


RAR 




LXI 


H,XLTS 


MOV 


E,A 


MVI 


D,0 


DAD 


D 


PUSH 


H 


CALL 


DMGET 


POP 


D 


LXI 


B,2 


CALL 


MOVBYT 


LXI 


D,8 


DAD 


D 


PUSH 


H 


CALL 


DMSTAT 


ANI 


20H 


LXI 


D,DPB128S 


JZ 


DMSOK 


CALL 


SETHIGH 


LXI 


D,DPB128D 


XCHG 




POP 


D 


POP 


PSW 


RAL 




RAL 




MOV 


C,A 


MVI 


B,0 


DAD 


B 


XCHG 




MOV 


M,E 


I NX 


H 


MOV 


M,D 


LXI 


H,15 


DAD 


D 


MOV 


C,M 


LDA 


DMLOG 


LXI 


D,DPHDM0 


JMP 


RETDPH 



m 
m 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 



; CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB ' S 

;SET CONTROLLER TO KNOW ABOUT FAST STEPING 

;BASE OF DOUBLE SIDED DPB ' S 

;HL <- DBP BASE, DE <- &DPH.DPB 

.•RESTORE DE (POINTER INTO DPH) 

; OFFSET TO CORRECT DPB i 



# 



;PUT DPB ADDRESS IN DPH 



m 

m 



THE CURRENT DRIVE IS DOUBLE SIDED. THUS IS IT SAFE TO SET THE 
STEPPING RATE TO 3 MS WITH 15 MS SETTLING. 



F37A 


2AE6F4 


SETHIGH :LHLD 


DMLOG 


F37D 


2600 


MVI 


H,0 


F37F 


29 


DAD 


H 


F380 


54 


MOV 


D,H 


F381 


5D 


MOV 


E,L 



GET THE CURRENT DRIVE NUMBER 

DRIVE NUMBER IS A BYTE 

TEN BYTES PER PARAMETER tABLE ENTRY 



m 
m 
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F382 29 
F383 29 
F384 19 
F385 114FEA 
F388 19 
F389 3600 
F38B 23 
F38C 3666 
F38E 23 
F38F 3600 
F391 110500 
F394 19 
F395 36FF 
F397 23 
F39S 3601 
F39A CDFCF3 
F39D C9 



DAD 


H 


DAD 


H 


DAD 


D 


LXI 


D,DPARAM+1 


DAD 


D 


MVI 


M,0 


I NX 


H 


MVI 


M, (LOW DMFSTP) 


INX 


H 


MVI 


M, (HIGH DMFSTP) 


LXI 


D,5 


DAD 


D 


MVI 


M, (LOW DMFSET) 


INX 


H 


MVI 


M,(HIGH DMFSET) 


CALL 


DMPARM 


RET 





; PARAMETER TABLE ADDRESS 

;SKIP THE TRACK SIZE BYTE 

; FORCE REPARAMITIZATION OF THIS DRIVE 

; OFFSET TO THE STEPPING RATE CONSTANT 

;FAST STEPPING RATE CONSTANT 



;SKIP OVER THE RESERVED FIELDS 
;FAST SETTLING RATE CONSTANT 

;SET DRIVE PARAMETERS FOR ; THE SA850 



# 
• 



END IF 



* * 

* 
* 

***************************************************************** 



* DRIVE SPECIFICATION TABLE FOR DJDMA 5 1/4 INCH DRIVES 
* 



IF 


MAXMF NE 


ST: DB 


MAXMF 


DW 


MFWARM 


DW 


MFTRM^ 


DW 


MFLDRV 


DW 


MFSEL2 


DW 


DMHOME 


DW 


MFSEEK 


DW 


MFSSEC 


DW 


DMDMA 


DW 


DMREAD 


DW 


DMWRITE 


DW 


NOBAD 



MFTRCK EQU 

MFWARM: CALL 
LXI 
MVI 
INX 
MVI 
INX 
MVI 
INX 
MVI 

MFWFAL: LXI 
CALL 
LDA 
ANI 
JZ 



9*512 



NUMBER OF LOGICAL DRIVES 

WARM BOOT 

SECTOR TRANSLATION 

SELECT DRIVE 1 

SELECT DRIVE 2 

HOME DRIVE 

SEEK TO SPECIFIED TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ A SECTOR 

WRITE A SECTOR 

NO BAD SECTOR MAP 

; AMOUNT OF CODE ON TRACK 



# 
# 



; SELECT DRIVE 
;SET UP BRANCH 



MFSEL2 

H, DMCHAN 

M.BRACHA 

H 

M, (LOW MFWCHN) ;LOW ADDRESS BYTE 

H 

M, (HIGH MFWCHN) ;HIGH ADDRESS BYTE 



M,0 

H,MFWEND-1 

DOCMD 

MFWST 

40H 

MFWFAL 



; POINTER TO END OF COMMAND STRUCTI^RE 

;READ IN TRACKS 

; CHECK OUT DRIVE STATUS 

;TEST FOR OK 

; FAILED, LOOP 
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; RETURN NO ERROR 



m 








XRA 


A 




RET 


. 


MFWCHN : 


DB 


DMSDMA 




DV\f 


CCP-512 




DB 







DB 


RDTRCK 




DB 







DB 







DB 







DW 


MFWSEC 




DB 





MFVJST 


DB 







DB 


DMSDMA 




DW 


CCP+MFTRCK 




DB 







DB 


RDTRCK 




DB 


1 




DB 







DB 







DW 


MFWSEC+10 




DB 





MFWEND : 


DB 







DW 





MFWSEC : 


DW 


0FFH, 0, 0, 




DW 


0, 0FFFFH, 


MFSSEC : 


DCR 


C 




LDA 


DBLFLG 




ORA 


A 




JZ 


DMSSEC 




MVI 


B, 80H 




JMP 


DMSSEC 


DBLFLG : 


DB 





MFSEEK: 


XRA 


A 




STA 


DBLFLG 




LDA 


MFPCON 




ANI 


N$2SIDE 




JZ 


DMSEEK 




MOV 


A,C 




SBI 


35 




JC 


DMSEEK 




MOV 


D,A 




MVI 


A, 34 




SUB 


D 




MOV 


C,A 




MVI 


A,0FFH 




STA 


DBLFLG 




JMP 


DMSEEK 



- BOOT LOADER 



;SET TRACK DMA ADDRESS 
; FIRST TRACK DMA ADDRESS 



READ TRACK COMMAND 

TRACK 

SIDE 

DRIVE 

SECTOR LOAD/ STATUS MAP 

; TRACK READ STATUS 

;DMA ADDRESS FOR TRACK 1 



; TRACK 1 

;SIDE 

; DRIVE 

;MAP IS LOADED RIGHT AFTER TRACK STATUS MAP 

; TRACK READ STATUS 
;ROOM FOR THE HALT 

0, ;D0 NOT LOAD BOOT LOADER 

0FFFFH, 0FFFFH, 0FFFFH ; FIRST TWO SECTORS LOADED 

;MINNIE FLOPPY SECTORS START AT ZERO 
;GET DOUBLE SIDED FLAGS 

;NOPE, SINGLE SIDED 

;SET HIGH BIT FOR DOUBLE SIDED SELECT 



# 



; CLEAR DOUBLE SIDED SELECT 



;ONLY SINGLE SIDED 

;MOVE SELECTED TRACK IN (A) 

; SUBTRACT BY TRACK BY NUMBER OF TRACKS 

;LESS THAN TRACK 35 

;SAVE ADJUSTED TRACK NUMBER 

; ADJUST TO COUNT TRACKS BACK OUT 
;RESAVE NEW TRACK NUMBER \ 

;SET DOUBLE SIDED FLAG 
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MFSEL2 : STA 


MFLOG 


MOV 


C.A 


MVI 


B,0 


LXI 


H, MFSCON 


DAD 


B 


MOV 


A,M 


STA 


MFPCON 


MOV 


A,C 


MVI 


B,4 


JMP 


DMSEL2 


MFTRAN: LDA 


MFPCON 


ANI 


N$DUBL 


LXI 


H, MFXLTD 


JNZ 


MFTDUBL 


LXI 


H,MFXLTS 


MFTDUBL:DAD 


B 


MOV 


L,M 


MVI 


H,0 


RET 




MFLDRV: STA 


MFLOG 


CALL 


DM I NIT 


JC 


ZRET 


LDA 


MFLOG 


MOV 


C,A 


MVI 


B,0 


LXI 


H, MFSCON 


DAD 


B 


MVI 


A,N$DUBL 


MOV 


M,A 


STA 


MFPCON 


LXI 


H,l 


SHLD 


TRUESEC 


DCX 


H 


SHLD 


CPMTRK 


XRA 


A 


STA 


RD\m 


CALL 


FILL 


JC 


ZRET 


LDA 


BUFFER+5CH 


PUSH 


PSW 


LXI 


H,l 


SHLD 


CPMTRK 


CALL 


FILL 


JC 


ZRET 


POP 


PSW 


ORA 


A 


JNZ 


MFL9 
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;GET PROPER PHYSICAL CONFIGURATION BYTE 



m 



;SHHH, PRETEND THAT NOTHING HAPPENED 
;5 1/4 INCH DRIVES START AT DRIVE 4 



; POINT TO DOUBLE SIDED SECTOR TRANSLATION TABLE 
; SINGLE DENSITY SECTOR TRANSLATION 

;ADD OFFSET SECTOR NUMBER TO TABLE 
;PICK UP SECTOR NUMBER FROM TABLE; 
;MSB OF SECTOR NUMBER EQUAL 



;TEST FOR A CONTROLLER 



;GET PROPER PHYSICAL CONFIGURATION BYTE 



; SELECT SECTOR 1 OF TRACK 



;MAKE SURE WE ARE DOING A READ 

; FLUSH BUFFER AND REFILL 

;TEST FOR ERROR RETURN 

;GET DISKETTE CONFIGURATION BYTE ' 

•SAVE CONFIGURATION BYTE | 

LOAD TRACK 1 SECTOR 1 

THIS IS TO FIX BUG WITH DJDMA FIRMWARE ON 
RETURNING SINGLE DENSITY STATUS ON TRACK 



;NON ZERO 
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MFL9i 



MFL2; 



MFL3; 



m 






MVI 


A,90H 


CALL 


DMSTAT 


ANI 


80H 


JNZ 


MFL9 


MVI 


A,10H 



MOV 



C,A 



LXI 


H,MFS 


MOV 


A,M 


ORA 


A 


JZ 


ZRET 


CMP 


C 


JZ 


MFL3 


INX 


H 


INX 


H 


INX 


H 


INX 


H 


JMP 


MFL2 


INX 


H 


MOV 


A,M 


STA 


MFPCON 


MOV 


E,A 


PUSH 


H 


LDA 


MFLOG 


MOV 


C,A 


MVI 


B,0 


LXI 


H,MFSCON 


DAD 


B 


MOV 


M,E 


POP 


H 


INX 


H 


MOV 


A,M 


INX 


H 


MOV 


H,M 


MOV 


L,A 


PUSH 


H 


CALL 


MFGDPH 


LXI 


D,10 


DAD 


D 


POP 


D 


MOV 


M,E 


INX 


H 


MOV 


M,D 


CALL 


MFGDPH 


PUSH 


H 


CALL 


DMSTAT 


POP 


H 


ANI 


80H 


MVI 


C,3 


RNZ 


tt 


MVI 


C,2 


RET 





; DOUBLE DENSITY DEFAULT CONFIGURATION 

;IF ZERO THEN DETERMINE SECTOR SIZE 

; CHECK DENSITY BIT 

;ITS DOUBLE DENSITY 

; SINGLE DENSITY DEFAULT CONFIGURATION BYTE 

;MOVE CONFIGURATION BYTE INTO (C) : 

; ADDRESS OF CONFIGURATION TABLE -> (HL) 

;GET AN ENTRY 

; CHECK FOR END OF THE TABLE 

;YES, SELECT ERROR 

; CHECK IF ENTRY MATCHES SELECTED DRIVE 

;SKIP ONFIGURATION BYTE 
;SKIP DRIVE TYPE 
;SKIP DPB ADDRESS 



;PICK UP DRIVE TYPE 



;GET PROPER PHYSICAL CONFIGURATION BYTE 



;DPB ADDRESS -> (HL) 

;SAVE DPB ADDRESS 

;GET DPH 

; OFFSET TO DPB ADDRESS IN DPH 



; STORE DPB ADDRESS IN DPH 



m 



;GET STATUS 

; CHECK DENSITY BIT 
;512 BYTE SECTORS 

;256 BYTE SECTORS 



m 
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MFGDPH 


LDA 
LXI 
JMP 


MFLOG 

D, DPHMF0 

RETDPH 


MFPCON : 
MFLOG : 


DB 
DB 






MFSCON: 


DB 


0, 0, 0, 


MFS: 


DB 
DB 
DW 


10H 



DPBMF0 




DB 
DB 

DW 


90H 

N$DUBL 

DPBMFl 




DB 
DB 
DW 


0B0H 

N$DUBL 

DPBMF2 




DB 
DB 
DW 


0F0H 
N$DUBL+N$2SIDE 

DPBMF3 




DB 
DB 

DW 


0E5H 

N$DUBL 

DPBMFl 




DB 
DB 
DW 


0A0H 

N$DUBL 

DPBMF2 




DB 
DB 
DW 


0D0H 

W$DUBL+N$2SIDE 

DPBMF3 



DB 



MFXLTD DB 


1, 2, 3, 4 


DB 


21,22,23,24 


DB 


5, 6, 7, 8 


DB 


25,26,27,28 


DB 


9,10,11,12 


DB 


29,30,31,32 


DB 


13,14,15,16 


DB 


33,34,35,36 


DB 


17,18,19,20 


DB 


37,38,39,40 


MFXLTS DB 


1, 2 


DB 


3, 4 


DB 


5, 6 


DB 


7, 8 


DB 


9,10 



.•PHYSICAL CONFIGURATION BYTE 



; SAVED PHYSICAL CONFIGURATION BYT|;S 

; NORTH STAR CP/M 1.4 

;SINGLE DENSITY, 35 TRACKS, SINGL^ SIDED 

;1K GROUPS 

I 

; NORTH STAR CP/M 1.4 

; DOUBLE DENSITY, 35 TRACKS, SINGLE SIDED 

;1K GROUPS 

; NORTH STAR CP/M 2.X 

; DOUBLE DENSITY, 35 TRACKS, SINGL$ SIDED 

;2K GROUPS 

; NORTH STAR CP/M 2.X 

; DOUBLE DENSITY, 35 TRACKS, DOUBLE SIDED 

;2K GROUPS 



NORTH STAR CP/M 1.4 

DOUBLE DENSITY, 35 TRACKS, SINGLE SIDED 

IK GROUPS ; 

NORTH STAR CP/M 2.X (FAKE 40 TRACK) 
DOUBLE DENSITY, 35 TRACKS, SINGLE SIDED 
2K GROUPS 

; NORTH STAR CP/M 2.X (FAKE 40 TRACK) 

; DOUBLE DENSITY, 35 TRACKS, DOUBLE SIDED 

;2K GROUPS ' 

;END OF CONFIGURATION TABLE 



m 






m 
# 
m 
m 



I # 
I # 

I ^ 
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m 



# 



# 



DB 


11,12 


DB 


13,14 


DB 


15,16 


DB 


17,18 


DB 


19,20 


END IF 





***************************************************************** 

* * 

* COMMON ROUTINES FOR THE DJDMA WITH 8 AND 5 1/4 INCH DRIVES * 

* * 

***************************************************************** 



;MOVE DRIVE INTO (C) 
;SET LOGICAL DRIVES 
; DRIVE IN (B) 



F39E 


4F 


DMSEL2 : 


MOV 


C,A 


F39F 


215000 




LXI 


H,DMCHAN 


F3A2 


362E 




MVI 


M, SETLOG 


F3A4 


23 




INX 


H 


F3A5 


70 




MOV 


M,B 


F3A6 


C5 




PUSH 


B 


F3A7 


CDC4F3 




CALL 


DOCMD 


F3AA 


CI 




POP 


B 


: F3AB 


C35AF4 




JMP 


DMSEL 


F3AE 


C5 


DMSSEC : 


PUSH 


B 


F3AF 


78 




MOV 


A,B 


F3B0 


07 




RLC 




F3B1 


E601 




AN I 


1 


F3B3 


4F 




MOV 


C,A 


F3B4 


CD4DF4 




CALL 


DMSIDE 


F3B7 


CI 




POP 


B 


F3B8 


C343F4 




JMP 


DMSEC 


F3BB 


215000 


DMDMA 


LXI 


H,DMCHAN 


F3BE 


3623 




MVI 


M,DMSDMA 


F3C0 


23 




INX 


H 


F3C1 


71 




MOV 


M,C 


F3C2 


23 




INX 


H 


F3C3 


70 




MOV 


M,B 


F3C4 


AF 


DOCMD 


XRA 


A 


F3C5 


23 




INX 


H 


F3C6 


77 




MOV 


M,A 


! F3C7 


23 


D0CMD2 


INX 


H 


F3C8 


3625 




MVI 


M,DMFIALTC 


F3CA 


23 




INX 


H 


', F3CB 


77 




MOV 


M,A 


F3CC 


D3EF 




OUT 


DMKICK 


F3CE 


B6 


TESTS 


ORA 


M 


' F3CF 


CACEF3 




JZ 


TESTS 


• F3D2 


C9 




RET 




F3D3 


215000 


DMINIT: 


LXI 


H,DMCHAN 


F3D6 


3625 




MVI 


M,DMHALTC 


1 FSDS 


23 




INX 


H 


F3D9 


3600 




MVI 


M,0 


F3DB 


D3EF 




OUT 


DMKICK 



;SAVE SECTOR NUMBER 



7 DEFAULT CHANNEL ADDRESS 
;SET DMA ADDRESS 

;LOW BYTE FIRST 

;HIGH BYTE NEXT 



m 
m 



;SEE IF CONTROLLER WILL HALT 



; START CONTROLLER 



m 
m 
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F3DD 


110000 


LXI 


D,0 


F3E0 


7E DMINWT iMOV 


A,M 


F3E1 


B7 


ORA 


A 


F3E2 


C2EDF3 


JNZ 


DMIOK 


F3E5 


IB 


DCX 


D 


F3E6 


7A 


MOV 


A,D 


F3E7 


B3 


ORA 


E 


F3E8 


C2E0F3 


JNZ 


DMINWT 


F3EB 


37 


STC 




F3EC 


C9 


RET 




F3ED 


E5 DMIOK PUSH 


H 


F3EE 


CDFCF3 


CALL 


DMPARM 


F3F1 


El 


POP 


H 


F3F2 


2B 


DCX 


H 


F3F3 


3628 


MVI 


M,SETCRC 


F3F5 


23 


I NX 


H 


F3F6 


3601 


MVI 


M,l 


F3F8 


AF 


XRA 


A 


F3F9 


C3C7F3 


JMP 


DOCMD2 



;SET UP TIMEOUT COUNTER 



.•CONTROLLER HAS RESPONDED 
;BUMP TIMEOUT COUNTER 



;SET ERROR FLAG 



;SET DRIVE PARAMETERS 



;BACK TO START OF COMMAND 

;SET CRC ERROR- RETRY COUNT TO ONE 



;D0 COMMAND 






F3FC 


3E08 


DMPARM: MVI 


A, 8 


F3FE 


114013 


LXI 


D,1340H 


F401 


214FEA 


LXI 


H, DPARAM+1 


F404 


F5 


DMSTR0: PUSH 


PSW 


F405 


7E 


MOV 


A,M 


F406 


B7 


ORA 


A 


F407 


C22CF4 


JNZ 


DMSTRl 


F40A 


E5 


PUSH 


H 


F40B 


D5 


PUSH 


D 


F40C 


35 


DCR 


M 


F40D 


2B 


DCX 


H 


F40E 


22D2F4 


SHLD 


DMNTRK 


F411 


23 


INX 


H 


F412 


23 


INX 


H 


F413 


22DAF4 


SHLD 


DMSPAR 


F416 


EB 


XCHG 




F417 


22D7F4 


SHLD 


DMLOC0 


F41A 


23 


INX 


H 


F41B 


23 


INX 


H 


F41C 


23 


INX 


H 


F41D 


23 


INX 


H 


F41E 


22DFF4 


SHLD 


DMLOCl 


F421 


21D1F4 


LXI 


H, DMWCON 


F424 


111100 


LXI 


D,17 


F427 


CDBCF4 


CALL 


DMDOIT 


F42A 


Dl 


POP 


D 



SET FLOPPY DRIVE PARAMETERS 

THIS ROUTINE READS THE DPARAM TABLE AND IF THE A DRIVE HAS NOT 
PREVIOUSLY BEEN CALIBRATED THEN THAT DRIVES TRACK COUNT, 
STEPPING RATE, AND HEAD SETTLING TIME ARE LOADED. 



EIGHT DRIVES 

START WITH DRIVE 0'S TABLE 

DRIVE PARAMETER TABLE 

SAVE THE DRIVE COUNT ] 

LOAD FLAGS 

DOES THE DRIVE NEED TO Bt CALIBRATED? 

NO, DO NOT FIDDLE AROUND ' 

SAVE THE PARAMETER TABLE POINTER 

SAVE THE CONTROLLERS TABLE POINTER 

SET TO CALIBRATED MODE (^FFH) 

BACK UP TO THE TRACK SIZE BYTE 

SET THE NUMBER OF TRACKS i POINTER 






;SET THE STEPPING CONSTAN'ts POINTER 
;SET THE LOCAL PARAMETER "tABLE POINTER 

; OFFSET TO THE STEPPING PARAMETERS 



; WRITE THE DRIVE CONSTANTS OUT 
7 HALT STATUS OFFSET 

; RETRIEVE THE TABLE POINTERS 



I 

! • 

I 

I # 
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F42B 


El 




POP 


H 


F42C 


010A00 


DMSTRl : 


LXI 


B,10 


F42F 


09 




DAD 


B 


F430 


EB 




XCHG 




F431 


011000 




LXI 


B,16 


F434 


09 




DAD 


B 


F435 


SB 




XCHG 




F436 


Fl 




POP 


PSW 


F437 


3D 




DCR 


A 


F438 


C204F4 




JNZ 


DMSTR0 


F43B 


C9 




RET 




F43C 


AF 


DMHOME 


XRA 


A 


F43D 


4F 




MOV 


C,A 


F43E 


79 


DMSEEK 


MOV 


A,C 


F43F 


32E3F4 




STA 


LLTRK 


F442 


C9 




RET 




F443 


3AE4F4 


DMSEC 


LDA 


LLSS 


F446 


E680 




ANI 


80H 


F448 


Bl 


STORES 


ORA 


C 


F449 


32E4F4 




STA 


LLSS 


F44C 


C9 




RET 




F44D 


79 


DMSIDE: 


MOV 


A,C 


F44E 


E601 




ANI 


1 


F453 


0F 




RRC 




F451 


4F 




MOV 


C,A 


F452 


3AE4F4 




LDA 


LLSS 


F455 


E67F 




ANI 


7FH 


F457 


C348F4 




JMP 


STORES 


F45A 


79 


DMSEL : 


MOV 


A,C 


F45B 


32E5F4 




STA 


LLDRV 


F45E 


C9 


DMDEN: 


RET 
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;BUMP PARAMETER TABLE POINTER 
,-BUMP CONTROLLER TABLES POINTER 



7 RETRIEVE DRIVE COUNT 

;BUMP COUNT 

;SET UP NEXT DRIVE 



# 



;PUT A ZERO INTO (C) FOR TRACK ZERO 

; ENTER WITH TRACK IN (C) 
;SAVE FOR USE LATER 



;LOAD SECTOR 

;SAVE SIDE SELECT BIT 



# 
# 



;MOVE SIDE BIT INTO (A) 

;MOVE AROUND TO BIT 7 
;RESAVE IN (C) 

;MASK OUT OLD SIDE SELECT BIT 



;MOVE DRIVE INTO (A) 
; DOUBLE DENSITY ONLY 



RETURN STATUS IN THE (A) REGISTER IN THE FORM; 

76553210 



DENSITY ■ + till 

SIDE SELECT + 1 | j 

DOUBLE SIDED + | | 

5 1/4 _ + j 

SECTOR SIZE MSB + 

SECTOR SIZE LSB + 

DRIVE SELECT MSB • + 

DRIVE SELECT LSB ■ + 



F45F 215000 



DMSTAT LXI 



H, DMCHAN 
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F462 


3522 


MVI 


M,GSTAT 


F464 


23 


I NX 


H 


F46 5 


3AE5F4 


LDA 


LLDRV 


F468 


77 


MOV 


M,A 


F469 


23 


I NX 


H 


F46A 


23 


I NX 


H 


F46B 


23 


INX 


H 


F46C 


CDC4F3 


CALL 


DOCMD 


F46F 


3AE4F4 


LDA 


LLSS 


F472 


E680 


ANI 


80H 


F474 


0F 


RRC 




F475 


4F 


MOV 


C,A 


F476 


215100 


LXI 


H, DMCHAN+1 


F479 


7E 


MOV 


A,M 


F47A 


Bl 


ORA 


C 


F47B 


E604 


Al^I 


4 


F47D 


07 


RLC 




F47E 


07 


RLC 




F47F 


B6 


ORA 


M 


F480 


Bl 


ORA 


C 


F481 


4F 


MOV 


C,A 


F482 


23 


INX 


H 


F483 


3E10 


MVI 


A,10H 


F485 


A6 


ANA 


M 


F486 


07 


RLC 




F487 


07 


RLC 




F488 


07 


RLC 




F489 


Bl 


ORA 


C 


F48A 


4F 


MOV 


C,A 


F43B 


23 


INX 


H 


F48C 


3E03 


MVI 


A, 3 


F48E 


A6 


ANA 


M 


F48F 


07 


RLC 




F490 


07 


RLC 




F491 


Bl 


ORA 


C 


F492 


4F 


MOV 


C,A 


F493 


23 


INX 


H 


F494 


3E04 


MVI 


A, 4 


F496 


A6 


ANA 


M 


F497 


07 


RLC 




F498 


07 


RLC 




F499 


07 


RLC 




F49A 


Bl 


ORA 


C 


F49B 


C9 


RET 




F49C 


3E21 


DMVJRITE MVI 


A,WRSECT 


F49E 


01 


DB 


01 


F49F 


3E20 


DMREAD MVI 


A,RDSECT 


F4A1 


215000 


LXI 


H,DMCflAN 


F4A4 


11E2F4 


LXI 


D, LLTRK-1 


F4A7 


0604 


MVI 


B,4 


F4A9 


77 


CLOAD MOV 


M,A 


F4AA 


23 


INX 


H 


F4AB 


13 


INX 


D 


F4AC 


lA 


LDAX 


D 


F4AD 


05 


DCR 


B 
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;SET UP READ STATUS 

;GET LAST SELECTED DRIVE 
; STORE DRIVE IN COMMAND 
;SKIP OVER RETURNED STATUS 



; ISSUE COMMAND 

;GET SIDE BIT OF LAST OPERATION 

;MOVE TO BIT 7 



; POINT TO DRIVE 
;LOAD DRIVE 

;MASK UPPER DRIVE SELECT BIT FOR 5 1/4 

;MOVE TO BIT 4 

;PUT TOGETHER WITH LOVJER DRIVE BITS 



; DOUBLE DENSITY BIT 

; 20H 
;40H 
;80H FOR DENSITY BIT 



.-SECTOR LENGTH MASK 

;AND IN 

;MOVE TO BITS 2 & 3 



;MASK FOR DOUBLE SIDED BIT 

;8 

;10 

;20 






;UGH. 
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F4AE C2A9F4 
F4B1 2B 
F4B2 CDC4F3 
F4B5 3A5400 
F4B8 FE80 
F4BA 3F 
F4BB C9 



JNZ 


CLOAD 


DCX 


H 


CALL 


DOCMD 


LDA 


DMCHAN+4 


CPI 


80H 


CMC 




RET 





EXECUTE A DJDMA COMMAND, NO COMMAND STATUS IS RETURNED 

ENTRY: 

DE = OFFSET TO THE HALT STATUS 

HL = POINTER TO THE START OF THE COMMAND 



j 






RETURNS 


• 

NOTHING 


F4BC 


3E26 


DMDOIT: 


MVI 


A,BRACHA 


F4BE 


325000 




STA 


DMCHAN 


F4C1 


225100 




SHLD 


DMCHAN+1 


F4C4 


AF 




XRA 


A 


F4C5 


325300 




STA 


DMCHAN+3 


F4C8 


19 




DAD 


D 


F4C9 


77 




MOV 


M,A 


F4CA 


D3EF 




OUT 


DMKICK 


F4CC 


B6 


DMV/AIT : 


ORA 


M 


i F4CD 


CACCF4 




JZ 


DMWAIT 


F4D0 


C9 




RET 




F4D1 


Al 


DMWCON : 


DB 


WRITEM 


F4D2 


0000 


DMNTRK: 


DW 





; F4D4 


00 




DB 





F4D5 


0200 




DW 


2 


F4D7 


0000 


DMLOC0 : 


DW 





F4D9 


Al 




DB 


WRITEM 


F4DA 


0000 


DMSPAR: 


DW 





F4DC 


00 




DB 





F4DD 


0800 




DW 


8 


F4DF 


0000 


DMLOCl : 


DW 





F4EI 


25 




DB 


DMHALTC 


F4E2 


00 




DB 






DRIVER VARIABLES 



; BRANCH CHAtWEL COMMAND 

;LOAD COMMAtID VECTOR 

; CLEAR EXTENDED ADDRESS 



; OFFSET TO THE HALT STATUS 

; CLEAR THE HALT STATUS INDICATOR \ 

; START THE CONTROLLER 

;WAIT FOR THE OPERATION COMPLETE STATUS 



m 
m 
m 



;WRITE TRACK SIZE 

; NUMBER OF TRACKS + DESYNC 

;X-ADDRESS 

;TWO BYTES \ 

; LOCAL CONTROLLER ADDRESS 

;WRITE STEPPING RATE DATA' 

; POINTER TO THE STEPPING PARAMETERS 



# 



; CONTROLLER HALT 
; STATUS 



# 



F4E3 00 


LLTRK 


DB 





F4E4 01 


LLSS 


DB 


1 
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F4E5 00 


LLDRV 


DB 





F4E6 00 


DMLOG 


DB 






ENDIF 

****************1e******1c****ie**1i-k*********1c**1e1e****************** 

* * 

* THE FOLLWING EQUATES ARE FOR THE HDDMA HARD DISK CONTROLLER * 

* * 

*******1c*****ie1it****1c*1c*****ic*******1c******1eie*******1e***********1e* 



m 
m 





IF 


MAXMW NE 







IF 


ST506 




CYL 


EQU 


153 




HEADS 


EQU 


4 




PRECOMP 


EQU 


64 




LOWCURR 


EQU 


128 




STEPDLY 


EQU 


30 




STEPRCL 


EQU 


30 




HEADDLY 


EQU 









ENDIF 








IF 


ST412 




CYL 


EQU 


306 




HEADS 


EQU 


4 




PRECOMP 


EQU 


128 




LOWCURR 


EQU 


128 




STEPDLY 


EQU 







STEPRCL 


EQU 


30 




HEADDLY 


EQU 
ENDIF 









IF 


CM5619 




CYL 


EQU 


306 




HEADS 


EQU 


6 




PRECOMP 


EQU 


128 




LOWCURR 


EQU 


128 




STEPDLY 


EQU 


2 




STEPRCL 


EQU 


30 




HEADDLY 


EQU 
ENDIF 








SECTSIZ EQU 



DMAREAD 


EQU 





DMAWRIT 


EQU 


1 


DMARHED 


EQU 


2 


DMAWHED 


EQU 


3 


DMALCON 


EQU 


4 


DMAS ST A 


EQU 


5 



; HDDMA CONTROLLER PRESENT ? | 

; SPECIFICATIONS FOR A SEAGATE TECHNOLOGY 506 

.•NUMBER OF CYLINDERS 

; NUMBER OF HEADS PER CYLINDER ; 

; CYLINDER TO START WRITE PRECOMENSATION 

; CYLINDER TO START LOW CURRENT 

;STEP DELAY (0-12.7 MILLISECONDS) 

; RECALIBRATE STEP DELAY | 

; SETTLE DELAY (0-25.5 MILLISECOND^ ) 



; SPECIFICATIONS FOR A SEAGATE 314^2 



.•SPECIFICATIONS FOR AN CMI 5619 



m 

• 



SECTOR SIZE CODE (MUST BE 7 FOR THIS CBIOS) 

= 128 BYTE SECTORS i 

1 = 256 BYTE SECTORS 

3 = 512 BYTE SECTORS ; 

7 = 1024 BYTE SECTORS (DEFAULT) i 
F = 2048 BYTE SECTORS 

.•DEFINE CONTROLLER COMMANDS 

.•READ SECTOR 

.•WRITE SECTOR 

;FIND A SECTOR 

.•WRITE HEADERS (FORMAT A TRACK) 

;LOAD DISK PARAMETERS 

.•SENSE DISK DRIVE STATUS 



m 
m 
m 
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DMANOOP EQU 
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& ;HULL CONTROLLER OPERATION 

; RESET CONTROLLER 

;SEND A CONTROLLER ATTENTION 

DEFAULT CHANNEL ADDRESS 
STEP DIRECTION OUT 
STEP DIRECTION IN 
NO PRECOMP, HIGH CURRENT 
PRECOMP, HIGH CURRENT 
PRECOMP, LOW CURRENT 
TRACK ZERO STATUS 
WRITE FAULT FROM DRIVE 
DRIVE READY 
SEEK COMPLETE 

***************************************************************** 

* * 

* DRIVE SPECIFICATION TABLE FOR THE HD DMA HARD DISK CONTROLLER * 

* * 
***************************************************************** 



RESET 


EQU 


54H 


ATTN 


EQU 


55H 


CEiAN 


EQU 


50H 


STEPOUT 


EQU 


10H 


STEPIN 


EQU 





BANDl 


EQU 


40H 


BAND2 


EQU 


0C0H 


BANDS 


EQU 


80H 


TRACK0 


EQU 


1 


VJFLT 


EQU 


2 


DREADY 


EQU 


4 


SEKCMP 


EQU 


a 



# 
# 
m 
m 



MWDST : DB 


MAXMW*MWLOG 


DW 


^^^«^7ARI>4 


DW 


MWTRAN 


DW 


IWLDRV 


DW 


MWDRV 


DW 


MWHOME 


DW 


MVJSEEK 


DW 


MWSEC 


DW 


MWDMA 


DW 


MWREAD 


DW 


MVWRITE 


IF 


HEADS > 2 


DW 


miBhD 


ELSE 




DW 


NOBAD 


ENDIF 





NUMBER OF LOGICAL DRIVES 

WAR£4 BOOT 

SECTOR TRAl^SLATION 

SELECT LOGICAL DRIVE 1 (FIRST TIME SELECT) 

SELECT LOGICAL DRIVE 2 (GENERAL SELECT) 

HOME CURRENT SELECTED DRIVE 

SEEK TO SELECTED TRACK 

SELECT SECTOR 

SET DMA ADDRESS 

READ A SECTOR 

WRITE A SECTOR 

TEST IF DRIVE IS BIG ENOUGH FOR A BAD SPOT MAP 

RETURN BAD SECTOR MAP INFO 






***************************************************************** 

* * 

* THE FOLLOWING ARE THE LOWEST LEVEL DRIVERS FOR THE MORROW * 

* DESIGNS HARD DISK DMA CONTROLLER. * 

* * 

***************************************************************** 



MWWARM XRA 


A 


CALL 


MWDRV 


CALL 


MWHOME 


LXI 


B,0 


CALL 


MWSEEK 


XRA 


A 


STA 


MWHEAD 


STA 


MWSECTR 


LXI 


H, BUFFER 


SHLD 


DMADMA 



.•SELECT DRIVE A 

;HOME AND RESET THE DRIVE 

;MAKE SURE WE ARE ON TRACK 



.•SELECT HEAD ZERO 

.•SELECT SECTOR 1 

.•LOAD SECTOR 1 INTO BUFFER 
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MWWLOD 



CALL 

RC 

LXI 

LXI 

LXI 

CALL 

LXI 

PUSH 

XRA 

PUSH 

POP 

POP 

INR 

STA 

CPI 

RZ 

INR 

INR 

INR 

INR 

SHLD 

PUSH 

PUSH 

CALL 

JNC 

RET 



Ml\rWREAD MVI 
MWWERR PUSH 
CALL 
POP 
RNC 
DCR 
JNZ 
STC 
RET 



MWWREAD 

D,BUFFER+200H 

H, CCP 

B,200H 

MOVBYT 

H,CCP-200H 

H 

A 

A 

PSW 

H 

A 

MWSECTR 

6 

H 

H 

H 

H 

DMADMA 

H 

PSW 

MWWREAD 

miXihOD 



C, RETRIES 
B 

MWREAD 
B 

C 

MWWERR 



;READ CCP INTO BUFFER 
; RETURN IF ERROR 



;MOVE 200H BYTES 

; INITIAL DMA ADDRESS 



SAVE FIRST SECTOR -1 
RESTORE SECTOR 
RESTORE DMA ADDRESS 



;PAST BDOS ? 

;YES, ALL DONE 

.-UPDATE DMA ADDRESS BY 1024 BYTES 









;READ IN A SECTOR 

; RETURN WITH ERROR 

; RETRY COUNTER 

;SAVE THE RETRY COUNT 

;READ THE SECTOR 



; UPDATE THE ERROR COUNT 

;KEEP TRYING IF NOT TOO MANY ERRORS 

; SET ERROR FLAG 



MWLDRV 



STA 

CALL 

JC 

LDA 

CALL 

JC 

CALL 

ANI 

JNZ 

CALL 

LXI 

LDA 
MOV 
MVI 
DAD 



MWCURL 

MWRESET 

ZRET 

^rwcuRL 

MWDRV 
ZRET 

MWSTAT 
DREADY 
ZRET 

MWHOME 

D,DPHMW0 

MWCURL 

L,A 

H,0 

H 



;SAVE CURRENT LOGICAL DRIVE 
; RESET CONTROLLER CARD 
.-CONTROLLER FAILURE 



.-SELECT DRIVE 
; SELECT ERROR 

.-GET DRIVE STATUS 
.-CHECK IF DRIVE READY 



.-HOME DRIVE 

; START OF HARD DISK DPH ' S 



m 
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DAD 


H 




DAD 


H 




DAD 


H 




DAD 


D 




MVI 


C,4 




RET 




MWDRV 


STA 


MWCURL 




CALL 


MIVDLOG 




MOV 


A,C 




STA 


MIVDRIVE 


MWSEL 


MVI 


A, DMANOOP 




JMP 


MWPREP 


MWDLOG : 


MVI 


C,0 


MWTJ,X: 


SUI 
RC 


MWLOG 




INR 


C 




JMP 


MWLLX 


MWSTAT 


MVI 


A, DMASSTA 




JMP 


MWPREP 


MWHOME 


CALL 


MWRESET 




LXI 


H, DMARGl 




MVI 


M,STEPRCL 




I NX 


H 




MVI 


M, HEADDLY 




CALL 


MWISSUE 




CALL 


MWPTR 




MVI 


M,0FFH 




INX 


H 




MVI 


M,0FFH 




LXI 


B,0 




CALL 


MWSEEK 




JMP 


MWRESET 


MWBAD : 


LXI 

RET 


H, MWBTAB 


MWBTAB: 


DW 







DW 


19 


MWSEEK 


CALL 


MWPTR 




MOV 


E,M 




INX 


H 




MOV 


D,M 




DCX 


H 




MOV 


M,C 




INX 


H 




MOV 


M,B 




MOV 


L,C 




MOV 


H,B 




SHLD 


DMARG0 




MOV 


A, D 




INR 


A 



;(HL) = POINTER TO DPH 

; RETURN SECTOR SIZE OF 1024 






;SAVE NEW SELECTED DRIVE 
; EXECUTE DISK COMMAND 



; SENSE STATUS OPERATION CODE 
.•EXECUTE DISK COMMAND 

; RESET CONTROLLER, DO A LOAD CONSTANTS 

;LOAD ARGUMENTS 

;LOAD STEP DELAY {SLOVJ RATE) 

;HEAD SETTLE DELAY 

;DO LOAD CONSTANTS AGAIN 

;GET POINTER TO CURRENT CYLINDER I^IUMBER 

;FAKE AT CYLINDER 65535 FOR MAX HEAD TRAVEL 



;SEEK TO CYLINDER 

;RECAL SLOWLY 

;BACK TO FAST STEPPING MODE 

; RETURN POINTER TO BAD SECTOR LOCATION 



# 
• 



; TRACK 

;HEAD 2, SECTOR 



= (2 * SPT + 0) + 1 



;GET TRACK POINTER 
;GET OLD TRACK NUMBER 



; STORE NEW TRACK NUMBER 

1 

i 
; BUILD CYLINDER WORD 

;SET COMI-IAND CHANNEL CYLINDER NUMBER 
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LXI 


H,0FFFFH 




JNZ 


^MSKIP0 




MVI 


CSTEPOUT 




JMP 


MWSKIP 


MWSKIP0 


:MOV 


H,B 




MOV 


L,C 




CALL 


MWHLMDE 




MVI 


CSTEPOUT 




MOV 


A,H 




ANI 


80H 




JNZ 


MWSOUT 




MVI 


C.0 




JMP 


MWSKIP 


MWSOUT : 


CALL 


I4WNEGHL 


MWSKIP : 


SHLD 


DMASTEP 




LDA 


MWDRIVE 




ORA 


C 




STA 


DMASEL0 




MVI 


A, DMANOOP 




CALL 


MWPREP 




LXI 


H,0 




SHLD 


DMASTEP 




RET 




MWDMA 


MOV 


H,B 




MOV 


L,C 




SHLD 


DMADMA 




RET 




MWSEC 


MOV 


A,C 




DCR 


A 




CALL 


Ml^DSPT 




AD I 


MWSPT 




STA 


MWSECTR 




MOV 


A,C 




STA 


MWHEAD 




RET 




MWDSPT 


MVI 


C,0 


MWDSPTX 


SUI 
RC 


MWSPT 




INR 


C 




JMP 


MWDSPTX 


MWRESET 


LHLD 


CHAN 




SHLD 


TEMPB 




LDA 


CHAN+2 




STA 


TEMPB+2 




OUT 


RESET 




LXI 


H, DMACHAN 




SHLD 


CHAN 




XRA 


A 




STA 


CHAN+2 




SHLD 


40H 



;(HL) = NEW TRACK, (DE) = OLD TRACK 



; CHECK HIT BIT FOR NEGITIVE DIRECTION 
;STEP IN i 



; NO -OPERATION COMMAND FOR THE CHANNEL 
;STEP TO PROPER TRACK 
; CLEAR STEP COUNTER 



;SET DMA ADDRESS 



# 



;LOAD SECTOR NUMBER 

; RANGE IS ACTAULLY 0-16 

; FIGURE OUT HEAD NUMBER -> (C) 

;MAKE SECTOR NUMBER 



;SAVE HEAD NUMBER 



; CLEAR HEAD COUNTER 

.•SUBTRACT A TRACKS WORTH OF SECTORS 

; RETURN IF ALL DONE 

;BUMP TO NEXT HEAD | 



;SAVE THE COMMAND CHANNEL FOR A WHILE 



;SEND RESET PULSE TO CONTROLLER 
; ADDRESS OF COMMAND CHANNEL 
; DEFAULT CHANNEL ADDRESS 



; CLEAR EXTENDED ADDRESS BYTE 

;SET UP A POINTER TO THE COMMAND CHANNEL 
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;SAVE THE TRACK NUMBER 

;LOAD ARGUMENTS 

;GET THE CURRENTLY SELECTED DRIVE 

; RAISE *STEP AND *DIR 

;SAVE IN DRIVE SELECT REGISTER ! 

; OFFSET TO DMARGl 

;LOAD STEP DELAY 

;HEAD SETTLE DELAY 

; SECTOR SIZE CODE 

;LOAD CONSTANTS COMMAND 
;D0 LOAD CONSTANTS 
;REST0RE THE TRACK NUMBER 

;SAVE STATUS : 

; RESTORE MEMORY USED FOR THE CHANIsIEL POINTER 



STA 


42H 


LHLD 


DMARG0 


PUSH 


H 


LXI 


H,DMASEL1 


LDA 


MWDRIVE 


ORI 


03CH 


MOV 


M,A 


LXI 


D,5 


DAD 


D 


MVI 


M, STEPDLY 


INX 


H 


MVI 


M.HEADDLY 


INX 


H 


MVI 


M,SECTSIZ 


INX 


H 


MVI 


M,DMALCON 


CALL 


MWISSUE 


POP 


H 


SHLD 


DMARG0 


PUSH 


PSW 


LHLD 


TEMPB 


SHLD 


CHAN 


LDA 


TEMPB+2 


STA 


CHAN+2 


POP 


PSW 


RET 




MWREAD MVI 


A, DMAREAD 


JMP 


MWPREP 


MWWRITE MVI 


A,DMAWRIT 


MWPREP: STA 


DMAOP 


MVI 


CBANDl 


LHLD 


DMARG0 


LXI 


D,PRECOMP 


CALL 


MWHLCDE 


JC 


MWPREPS 


MVI 


C,BAND2 


LXI 


D,LOWCURR 


CALL 


MWHLCDE 


JC 


MWPREPS 


MVI 


C, BANDS 


MV\?PREPS LDA 


MWHEAD 


STA 


DMARG2 


CMA 




ANI 


7 


RLC 




RLC 




ORA 


C 


MOV 


C,A 


LDA 


MWDRIVE 


ORA 


C 






;LOAD DISK READ COMMAND 

;LOAD DISK WRITE COMMAND 
;SAVE COMMAND CHANNEL OP CODE 



m 



; CYLINDER > LOW_CURRENT 

;LOAD HEAD ADDRESS ' 

; NEGATIVE LOGIC FOR THE CONTROLLER 
;3 BITS OF HEAD SELECT ; 

; SHOVE OVER TO BITS 2-4 

;ADD ON LOW CURRENT AND PRECOMP BITS 

;LOAD DRIVE ADDRESS i 

;SLAP IN DRIVE BITS 



m 
m 
m 
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STA 


DMASELl 




LDA 


MWSECTR 




STA 


DMARG3 




IF 





MWISSUE 


CALL 

RNC 


MWDOIT 




PUSH 


PSW 




CALL 


HEXOUT 




CALL 


DSPOUT 




LXI 


H, DMACHAN 




MVI 


C,16 


MWERR: 


PUSH 


B 




PUSH 


H 




MOV 


A,M 




CALL 


HEXOUT 




CALL 


SPOUT 




POP 


H 




POP 


B ^ 




INX 


H 




DCR 


C 




JNZ 


MWERR 




MVI 


C,0AH 




CALL 


POUT 




MVI 


C,0DH 




CALL 


POUT 




POP 


PSW 




RET 




DSPOUT : 


CALL 


SPOUT 


SPOUT: 


MVI 


c,' • 




JMP 


POUT 


HEXOUT : 


PUSH 

RRC 

RRC 

RRC 

RRC 


PSW 




CALL 


NIBOUT 




POP 


PSW 


NIBOUT: 


ANI 


0FH 




ADI 


'0' 




CPI 


'9'+l 




JC 


NIBOK 




ADI 


27H 


NIBOK: 


MOV 


C,A 




JMP 


POUT 


MWDOIT 


EQU 
ELSE 


$ 


MWISSUE 


EQU 
ENDIF 


$ 



;SAVE IN COMMAND CHANNEL HEAD SELECT 
;LOAD SECTOR ADDRESS 



SET TO 1 FOR M\<1 ERROR REPORTER 
DO DESIRED OPERATION 
DO NOTHING IF NO ERROR 
SAVE ERROR INFO 
PRINT STATUS 
AND A SPACE 



m 
m 



;16 BYTES OF STATUS 



; PRINT A BYTE OF THE STATUS LINE 



;BUMP COMMAND CHANNEL POINTER 



; TERMINATE WITH A CRLF 



; RESTORE ERROR STATUS 



; PRINT TWO SPACES 
; PRINT A SPACE 



;P0OR PERSONS NUMBER PRINTER 






m 
m 



;D0 A DISK COMMAl^, HANDLE TIMEOUTS + ERRORS 
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m 
m 
m 









LXI 


H,DMASTAT 


MVI 


M,0 


OUT 


ATTN 


LXI 


D,0 


MWILOOP MOV 


A,M 


OKA 


A 


RM 




STC 




RNZ 




XTHL 




XTHL 




XTHL 




XTHL 




DCX 


D 


MOV 


A,D 


ORA 


E 


JNZ 


MWILOOP 


STC 




RET 




MWPTR LDA 


MWDRIVE 


RLC 




MOV 


E,A 


MVI 


D,0 


LXI 


H, MWTAB 


DAD 


D 


RET 




MWTRAN: MOV 


H,B 


MOV 


L,C 


INX 


H 


RET 




MWNEGHLrMOV 


A,H 


CMA 




MOV 


H,A 


MOV 


A,L 


CMA 




MOV 


L,A 


INX 


H 


RET 




MWHLMDErXCHG 




CALL 


MWNEGHL 


XCHG 




DAD 


D 


RET 




l^fflLCDE:MOV 


A,H 


CMP 


D 


RNZ 




MOV 


A,L 


CMP 


E 


RET 




MWTAB EQU 


$ 



; CLEAR STATUS BYTE 

; START THE CONTROLLER 

;TIME OUT COUNTER (65536 RETRIES) 

;GET STATUS 

;SET UP CPU FLAGS 

; RETURN NO ERROR (CARRY RESET) 

; RETURN ERROR STATUS 
; WASTE SOME TIME 



;BUMP TIMEOUT COUNTER 



;LOOP IF STILL BUSY 
;SET ERROR FLAG 



;GET CURRENTLY SELECT DRIVES TRACK ADDRESS 



m 
m 



; OFFSET INTO TRACK TABLE 



# 



• 



.•COLLECTION OF TRACK ADDRESSES 
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REPT 


MAXMW 




DB 


0FFH 




DB 


0FFH 




ENDM 






DB 


0FFH 


MWCURL 


DB 





MWDRIVE 


DB 


0FFH 


MWHEAD 


DB 





MWSECTR 


DB 





DMACHAN 


EQU 


$ 


DMASEL0 


DB 





DMASTEP 


mj 





DMASELl 


DB 





DMADMA 


DW 







DB 





DMARG0 


DB 





DMARGl 


DB 





DMARG2 


DB 





DMARG3 


DB 





DMAOP 


DB 





DMASTAT 


DB 





DMALNK 


DW 


DMACHAN 




DB 
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MAXMW 

; INITIALIZE TO (WAY OUT ON THE END OF THE DISK) 



CURRENT LOGICAL DRIVE 
CURRENTLY SELECTED DRIVE 
CURRENTLY SELECTED HEAD 
CURRENTLY SELECTED SECTOR 

COMMAND CHAt>iNEL AREA 

DRIVE SELECT 

RELATIVE STEP COUNTER 

HEAD SELECT 

DMA ADDRESS 

EXTENDED ADDRESS 

FIRST ARGUMENT 

SECOND ARGUMENT 

THIRD ARGUMENT 

FOURTH ARGUMENT 

OPERATION CODE 

CONTROLLER STATUS BYTE 

LINK ADDRESS TO NEXT COMMAND CHANNEL 

EXTENDED ADDRESS 



END IF 

***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 
***************************************************************** 

UNALLOCATED WRITTING VARIABLES 
UNALLOCATED WRITE IN PROGRESS FLAG 
LAST UNALLOCATED BLOCK NUMBER WRITTEN 
DRIVE THAT THE BLOCK BELONGS TO 

;CP/M SECTOR # 

I 

;CP/M DRIVE # 
;CP/M TRACK # 
;PHYSICAL SECTOR THAT CONTAINS CP/M SECTOR 

; BUFFER'S ERROR STATUS FLAG 
; DRIVE THAT BUFFER BELONGS TO 
; TRACK THAT BUFFER BELONGS TO 
; SECTOR THAT BUFFER BELONGS TO 

; ALTERNATE TRACK 
;ALTERANTE SECTOR 
;LAST SELECTED DRIVE 

***************************************************************** 



# 



# 



• 









IF 


NOSTAND NE 


F4E7 


00 


UNALOC : 


DB 





F4E8 


0000 


OBLOCK: 


DVJ 





F4EA 


00 


UNADRV : 


DB 
ENDIF 





F4EB 


0000 


CPMSEC: 


DW 





F4ED 


00 


CPMDRV: 


DB 





F4EE 


0000 


CPMTRK: 


DW 





F4F0 


0000 


TRUESEC 


:DW 





F4F2 


00 


ERROR: 


DB 





F4F3 


00 


BUFDRV: 


DB 





F4F4 


0000 


BUFTRK: 


m/i 





F4F6 


0000 


BUFSEC: 


DW 





F4F8 


0000 


ALTTRK: 


DW 





F4FA 


0000 


ALT SEC: 


DW 





F4FC 


00 


LASTDRV 


:DB 






m 
m 
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* * : 

* DPB AND DPH AREA. * 

* * 

***************************************************************** 







IF 


MAXHD NE 


0000 # 


DPHDSK 


SET 









REFT 


MAXHD 




LDSK 


SET 









REPT 


HDLOG 






DPHGEN 


HD, %DPHDSK 




LDSK 


SET 


LDSK+1 




DPHDSK 


SET 

ENDM 

ENDM 


DPHDSK+1 


F4FD+= 


DPHHD0 


EQU 


$ 


F4FD+0000 




DW 





F4FF+0000000000 


DW 


0, 0,0 


F505+77F9 




DW 


DIRBUF 


F507+2DF5 




DW 


DPBHD0 


F509+07FA 




DW 


CSVHD0 


F50B+07FA 




DW 


ALVHD0 


F50D+= 


DPHHDl 


EQU 


$ 


F50D+0000 




DW 





F50F+0000000000 


DV\f 


0,0,0 


F515+77F9 




DW 


DIRBUF 


F517+3DF5 




DV^ 


DPBHDl 


F519+06FB 




DW 


CSVHDl 


F51B+06FB 




DV/ 


ALVHDl 


F51D+= 


DPHHD2 


EQU 


$ 


F5lD+00g0 




DW 





F51F+0000000000 


DW 


0,0,0 


F525+77F9 




DW 


DIRBUF 


F527+4DF5 




DW 


DPBHD2 


F529+05FC 




DW 


CSVHD2 


F52B+05FC 




DW 


ALVHD2 



; GENERATE DPH ' S FOR THE HDCA HARD DISKS 



m 



IF 



HDPART NE 



;USE NON-STANDARD PARTITIONING 



***************************************************************** 



* HDSECTP IS THE NUMBER OF 128 BYTE SECTORS PER CYLINDER. 

* 

* HDTRKS IS THE TOTAL NUMBER OF DATA CYLINDERS. EG. IT IS 

* THE NUMBER OF CYLIDERS ON THE DRIVE MINUS THE NUMBER OF 

* CYLINDERS THAT ARE USED FOR THE SYSTEM. IF THE NUMBER OF 

* 'SYSTEM TRACKS' IS NOT ONE THEN THE INITIAL VALUE OF 

* 'OFF' SHOULD BE ADJUSTED ACCORDINGLY. 
* 

* HDTRKs" = TRACKS - 1 
* 

***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



m 



IF M10 NE 
HDSECTP EQU 336 



; SECTORS PER TRACK 
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#088 

HDTRKS 
ENDIF 
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EQU 243 ; TOTAL DATA TRACKS | 



IF M20 NE 
HDSECTP EQU 67 2 
HDTRKS EQU 243 
ENDIF 

IF M26 NE 
HDSECTP EQU 1024 
HDTRKS EQU 201 
ENDIF 



LDSK 


SET 


TRACKS 


SET 


DSM 


SET 


OFF 


SET 




REPT 




DPBGEN 


OFF 


SET 


LDSK 


SET 




ENDM 



ELSE 



;USE NON-STANDARD PARTITIONING 

HDTRKS/HDLOG ; NUMBER OF TRACKS PER PARTITION 
HDSECTP/8*TRACKS/4-l ;NUMBER OF GROUPS PER PARTITION 
1 

HDLOG 

HD, %LDSK, %HDSECTP, 5,31,1, %DSM, 511, 0FFH, 0FFH, 0, %OFF, 3 

OFF+TRACKS 

LDSK+1 



;ELSE USE STANDARD DPB ' S 





IF 


M26 NE 




DPBHD0 


DW 


1024 


;CP/M SECTORS/TRACK 




DB 


5 


;BSH 




DB 


31 


;BLM 




DB 


1 


;EXM 




DW 


2015 


;DSM 




DVJ 


511 


;DRM 




DB 


0FFH 


;AL0 




DB 


0FFH 


;AL1 




DW 





;CKS 




DW 


1 


;OFF 




DB 


3 


;SECSIZ 


DPBHDl 


DW 


1024 


;CP/M SECTORS/TRACK 




DB 


5 


;BSH 




DB 


31 


;BLM 




DB 


1 


;EXM 




DW 


2015 


;DSM 




DW 


511 


;DRM 




DB 


0FFH 


;AL0 




DB 


0FFH 


rALl 




DW 





;CKS 




DW 


64 


; OFF 




DB 


3 


;SECSIZ 


DPBHD2 


DW 


1024 


;CP/M SECTORS/TRACK 




DB 


5 


;BSH 




DB 


31 


;BLM 




DB 


1 


;EXM 




DW 


2047 


;DSM 
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F52D 


A002 


F52F 


05 


F530 


IF 


F531 


01 


F532 


F407 


F534 


FF01 


F536 


FF 


F537 


FF 


F538 


0000 


F53A 


0100 


F53C 


03 


F53D 


A002 


F53F 


05 


F540 


IF 


F541 


01 


F542 


F407 


F544 


FF01 


F546 


FF 


F547 


FF 


F548 


0000 



DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


127 


DB 


3 


EMDIF 




IF 


M10 NE 


DPBHD0 DW 


336 


DB 


5 


DB 


31 


DB 


1 


DW 


1269 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


3 


DPBHDl DW 


336 


DB 


5 


DB 


31 


DB 


1 


DW 


1280 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


122 


DB 


3 


ENDIF 




IF 


M20 NE 


DPBHD0 DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2036 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


3 


DPBHDl DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2036 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 






DRM 
AL0 
ALl 
CKS 
OFF 
SECSIZ 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRt4 

AL0 

ALl 

CKS 

OFF 

SECSIZ 

CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

SECSIZ 






CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

SECS 



SECTORS /TRACK 



# 

m 



IZ 



;CP/M SECTORS/TRACK 

; BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 
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F54A 


5200 


DW 


98 


F54C 


03 


DB 


3 


F54D 


A002 DPBHD2 DW 


672 


F54F 


05 


DB 


5 


F550 


IF 


DB 


31 


F551 


01 


DB 


1 


F552 


0404 


DW 


1028 


F554 


FF01 


DW 


511 


F556 


FF 


DB 


0FFH 


F557 


FF 


DB 


0FFH 


F558 


0000 


DW 





F55A 


C300 


DW 


195 


F55C 


03 


DB 

ENDIF 
ENDIF 
ENDIF 


3 






IF 


MAXMF NE 



;OFF 
;SECSIZ 

;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 

;SECSIZ 



;END of HD DPH'S AND DPB ' S 



m 



DPBGEN MF, 0, 20, 3, 7, 0, 04FH, 

DPBGEN MF, 1, 40, 3, 7, 0, 0A4H, 

DPBGEN MF, 2, 40, 4, 15, 1, 051H, 

DPBGEN MF, 3, 40, 4, 15, 1, 0A9H, 



63, 0C0H, 0, 16, 3, 2 

63, 0C0H, 0, 16, 2, 3 

63, 80H, 0, 16, 2, 3 

63, 80H, 0, 16, 2, 3 



DN 


SET 







REPT 


MAXMF 




DPHGEN 


MF,%DN,DPBMF,%DN 


DN 


SET 

ENDM 

ENDIF 


DN+1 




IF 


MAXFD NE 


DN 


SET 







REPT 


MAXFD 




DPHGEN 


FD,%DN,0,0 


DN 


SET 

ENDM 

ENDIF 


DN+1 




IF 


MAXDM NE 


0000 # DN 


SET 







REPT 


MAXDM 




DPHGEN 


DM,%DN,0,0 


DN 


SET 
ENDM 


DN+1 


F55D+= DPHDM0 


EQU 


$ 


F55D+0000 


DW 





F55F+0000000000 


DW 


0,0,0 


F565+77F9 


DW 


DIRBUF 


F567+0000 


DW 


00 


F569+86FC 


DW 


CSVDM0 


F56B+C6FC 


DW 
ENDIF 


ALVDM0 




IF 


MAXMW NE 



m 



m 
m 



m 
m 
m 



• 
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***************************************************************** 

* * 

* MWSECTP IS THE NUMBER OF 128 BYTE SECTORS PER CYLINDER. * : 

* ^fi^fSECTP = 72 * HEADS 



* 
* 
* 
* 
* * 

***************************************************************** 



* MWTRKS IS THE TOTAL NUMBER OF DATA CYLINDERS. 

* Mii'7TRKS = TRACKS - 1 



IF ST506 NE 

MWSECPT EQU 288 

W/TRKS EQU 152 
ENDIF 



; SECTORS PER TRACK 
; TOTAL DATA TRACKS 



IF ST412 NE 

MWSECPT SET 288 

MWTRKS SET 305 
ENDIF 

IF CM5619 NE 
MWSECPT SET 432 
MWTRKS SET 305 
ENDIF 



DPHDSK 


SET 


; GENER 




REPT 


MAXMW 


LDSK 


SET 







REPT 


MWLOG 




DPHGEN 


MW, %DPHDSK, DPBMW, %LDSK 


DPHDSK 


SET 


DPHDSK+1 


LDSK 


SET 

ENDM 
ENDM 


LDSK+1 



; GENERATE DPH'S FOR THE HDDMA HARD DISKS 



IF 



LDSK 


SET 


TRACKS 


SET 


DSM 


SET 


OFF 


SET 



MWPART NE 







; GENERATE DPB ' S FOR A HDDMA HARD DISK 



;USE NON-STANDARD PARTITIONING 
MWTRKS/MWLOG ; NUMBER OF TRACKS PER PARTITION 
MWSECTP/8*TRACKS/4-l ; NUMBER OF GROUPS PER PARTITION 
1 






m 



m 
m 



m 
# 



REPT MWLOG 

DPBGEN MW, %LDSK, %MWSECPT ,5,31,1, %DSM, 1023, 0FFH, 0FFH, , %OFF , 4 

OFF SET OFF+TRACKS 

LDSK SET LDSK+1 

ENDM 



ELSE 

OFF SET 

TRKOFF SET 

BLOCKS SET 

PSIZE SET 

LDSK SET 



;USE STANDARD PARTITIONING 



8192/(MV7SECPT/8)+l 
MWSECPT/ 8* MWTRKS 
TRKOFF* (MWSECPT/ 8 ) 




; INITIAL SYSTEM TRACK OFFSET 
;THE NUMBER OF TRACKS IN ^ PARTITION 
;THE NUMBER OF BLOCKS ON THE DRIVE 
;THE NUMBER OF BLOCKS IN ^ PARTITION 



m 
m 
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REPT BLOCKS/8192 ; GENERATE SOME 8 MEGABYTE DPB ' S 

DPBGEN MW,%LDSK, %MWSECPT,5,31,1,2047,1023,0FFH,0FFH,0,%OFF,4 

OFF SET OFF+TRKOFF ' 

BLOCKS SET BLOCKS -P SIZE 

LDSK SET LDSK+1 

ENDM 

BLOCKS SET BLOCKS/4 

IF BLOCKS GT 256 ;IF THERE IS ANY STUFF LEFT, THEN : USE IT 

BLOCKS SET BLOCKS -1 

DPBGEN MW, %LDSK, %MWSECPT, 5, 31, 1 , %BLOCfCS, 1023, 0FFH, 0FFH, , %OFF, 4 

END IF 

ENDIF 

ENDIF • ' 



F56D = 



BUFFER EQU 



***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



# 
• 



F56D 


1B7E PROMPT: 


DB 


F56F 


801A 


DB 


F571 


0D0A0A 


DB 


F574 


4D6F72726F 


DB 


F583 


35 


DB 


F584 


34 


DB 


F585 


4B2043502F 


DB 


F58C 


32 


DB 


F58D 


2E 


DB 


F58E 


32 


DB 


F58F 


20 


DB 


F590 


45 


DB 


F591 


33 


DB 


F592 


0D0A 


DB 



; SWITCH TV950 TO WS MODE 
; CLEAN BUFFER AND SCREEN 



;CP/M MEMORY SIZE 
;CP/M VERSION NUMBER 



0000 # 



IBH, 7EH 
80H, CLEAR 
ACR, ALF, ALF 

'Morrow Designs ' 

'0'+MSIZE/10 

'0'+(MSIZE MOD 10) 

'K CP/M ' 
CPMREV/10+'0' 

I I 

{CPMREV MOD 10)+'0' 

(REVNUM/10)+'A'-1 
(REVNUM MOD 10)+'0' 
ACR, ALF 



PRINT A MESSAGE LIKE: 
AB: DJDMA 8", CD: DJDMA 5 1/4", E: HDDMA M5 



MS DRV 



SET 







MSBUMP 


MACRO 


NDRIVES 




IF 


DN GT 1 




DB 


■ 1 




ENDIF 






REPT 


NDRIVES 




DB 


MSDRV+'A' 


MSDRV 


SET 
ENDM 


MSDRV+1 




DB 


m 




ENDM 





; START WITH DRIVE A: 
; PRINT A DRIVE NAME 
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0001 # 



PRHEX MACRO 


DIGIT 


PRNIB 


DIGIT/10H 


PRNIB 


DIGIT 


ENDM 




PRNIB MACRO 


DIGIT 


TEMP SET 


DIGIT AND 0FH 


IF 


TEMP < 10 


DB 


TEMP + ' ' 


ELSE 




DB 


TEMP - 10 + 'A' 


ENDIF 




ENDM 




DN SET 


1 


REPT 


16 


IF 


DN EQ HDORDER 


MSBUMP 


MAXHD*HDLOG 


DB 


'HDCA ' 


IF 


MAXHD GT 1 


DB 


' ( ' , MAXHD+ ■ • , • ) 


ENDIF 




IF 


M10 NE 


IF 


M10M NE 


DB 


'Memorex' 


ELSE 




DB 


'Fujitsu' 


ENDIF 




DB 


' M10' 


ENDIF 




IF 


M20 NE 


DB 


'Fujitsu M20' 


ENDIF 




IF 


M26 NE 


DB 


'Shugart M26 ' 


ENDIF 




ENDIF 




IF 


DN EQ MWORDER 


MSBUMP 


MAXMW*MWLOG 


DB 


'HDDMA' 


IF 


M^TOUIET EQ 


DB 


1 I 


IF 


MAXMW GT 1 


DB 


' ( ' , MAXMW+ • ' , ' ) 


ENDIF 




IF 


ST506 NE 


DB 


'M5' 


ENDIF 




IF 


ST412 NE 


DB 


•M10' 


ENDIF 




IF 


CM5619 NE 



; WRITE A BYTE IN HEX 



; WRITE A DIGIT IN HEX 






; GENERATE THE DRIVE MESSAGES 
;RUN OFF AT LEAST 16 DRIvis 
.•GENERATE THE HDCA'S MESSAGE 



# 



I # 



; GENERATE THE HDDMA' S MESSAGE 
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DB 

ENDIF 
ENDIF 
ENDIF 



CHIOS Revision E for CP/M Version 2.2 - March 4, 1982 

! 

'M16' 



IF DN EQ FDORDER 

MSBUMP M/^FD 

DB •DJ2D/B @' 

PRHEX FDORIG/100H 

PRHEX FDORIG 

ENDIF 

IF DN EQ DMORDER 

MSBUMP MAXDM 

DB 'DJDMA 8" ' 

ENDIF 

IF DN EQ MFORDER 

MSBUMP MAXMF 





DB 


•DJDMA 5 1/4" 




ENDIF 




DN 


SET 

ENDM 


DN+1 


F594+41 


DB 


MSDRV+'A* 


F595+42 


DB 


MSDRV+'A' 


F596+43 


DB 


MSDRV+'A' 


F597+3A20 


DB 


• 


F599+4844434120 


DB 


'HDCA ' 


F59E+46756A6974 


DB 


'Fujitsu M20' 


F5A9+2C20 


DB 


1 1 

1 


F5AB+44 


DB 


MSDRV+ ' A • 


F5AC+3A20 


DB 


• 


F5AE+444A444D41 


DB 


'DJDMA 8"' 


F5B6 0D0A 


DB 


ACR,ALF 


F5B8 00 


DB 






; GENERATE THE 2D/B MESSAGE 



; GENERATE THE DJDMA 8 MESSAGE 



; GENERATE THE DJDMA 5 1/4 i MESSAGE 



F5B9 310001 

F5BC AF 
F5BD 32DBEB 
F5C0 3244EA 
F5C3 32EDF4 
F5C6 320400 

F5C9 2103EA 
F5CC 2201EA 



;END OF MESSAGE 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/MilAS BEEN LOADED IN * : 

* WHEN CONTROL IS PASSED HERE. * 

* * : 

***************************************************************** 



;SET UP STACK 

; CLEAR COLD BOOT FLAG 

I 

; CLEAR GROUP SELECT BYTE 
; SELECT DISK A: 

; PATCH COLD BOOT TO WARM CODE 



CBOOT : LXI 


SP,TPA 


XRA 


A 


STA 


CWFLG 


STA 


GROUP 


STA 


CPMDRV 


STA 


CDISK 


LXI 


H,BI0S+3 


SHLD 


BIOS+1 



• 



# 

# 
# 



m 
m 
m 
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F5CF 3A43EA 
F5D2 320300 

F5D5 116DF9 
F5D8 12 
F5D9 216EF9 
F5DC 010900 
F5DF CDE6EE 
F5E2 36FF 



F5E4 CDF3F5 



F5E7 CD55F6 



F5EA 216DF5 
F5ED CD05EF 
F5F0 C386EB 



LDA 
STA 

LXI 

STAX 

LXI 

LXI 

CALL 

MVI 

IF 
IF 

CALL 
ENDIF 

IF 

CALL 
END IF 
ELSE 
LXI 

CBOOT0: MOV 
INX 
MOV 
INX 
MOV 
ORA 
JZ 

PUSH 
LXI 
PUSH 
XCHG 
PCHL 

CBOOTl: POP 
JMP 

DEVSET: DW 
DW 
DW 
DW 

CB00T2 EQU 

END IF 

LXI 
CALL 

JMP 



lOBYT 
lOBYTE 

D,BADMAP 

D 

H, BADMAP+1 

B,9*BADSIZ 

MOVBYT 

M,0FFH 

CONTYP NE 6 
CONTYP NE 
TTYSET 



LSTTYP NE 
LSTSET 



H, DEVSET 

E,M 

H 

D,M 

H 

A,D 

E 

CBOOT2 

H 

H, CBOOTl 

H 



; INITIALIZE THE lOBYTE 

.•CLEAR OUT BAD MAP 

;32 MAP ENTRIES 

;END MARKER 

;NON lOBYTE INITS 

;D0 NOT CALL TTYSET FOR PROM'S 

.•INITIALIZE THE TERMINAL 



;D0 NOT CALL LSTSET FOR PilOM'S 
; INITIALIZE THE LIST DEVICE 

DO lOBYTE INITS 

DEVICE SETUP ROUTINE POINTER TABLE 

LOAD A ROUTINE ADDRESS 



.•TEST FOR THE END OF THE i-ABLE 



H 
CBOOT0 



;SAVE THE TABLE POINTER 
.•RETURN ADDRESS 



;'CALL' A DEVICE SETUP ROUTINE 
.•RESTORE THE TABLE POINTER 



TTYSET, CRTSET, UCISET .-DEVICE SETUP ROUTINE POINTERS 

PTRSET, URISET, UR2SET j 

PTPSET, UPISET, UP2SET 

LPTSET, ULISET, 



H. PROMPT 

MESSAGE 

GOCPM 



;PREP FOR SENDING SIGNON MESSAGE 
.-SEND THE PROMPT 



***************************************************************** 

* * 

* CONSOLE AND LIST DEVICE INITIALIZATION ROUTINES FOLLOW. *! 

* * 

***************************************************************** i 

IF CONTYP EQ 2 ;MULTI l/O, DECISION I 

***************************************************************** 



m 



m 
m 



m 
m 
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* * 

* TERI4INAL IKITILIZATION ROUTINE. THIS ROUTINE READS THE SENSE * 

* SWITCH ON THE WB-14 AND SETS THE SPEED ACCORDINGLY. * 

* * 
***************************************************************** 



; SELECT GROUP 

;GET SENSE SWITCH (FF ON ^ MULTIO) 

; SELECT CONSOLE 



F5F3 


CDCDEA 


TTYSET: CALL 


SELG0 


F5F6 


DB49 


IN 


SENSESW 


F5F8 


F5 


PUSH 


PSW 


F5F9 


CDD3EA 


CALL 


SELCON 


F5FC 


Fl 


POP 


PSW 


F5FD 


F5 


PUSH 


PSW 


F5FE 


CD0BF6 


CALL 


TINI0 


F601 


Fl 


POP 


PSW 


F602 


F5 


PUSH 


PSW 


F603 


CDDBEA 


CALL 


SELRDR 


F606 


Fl 


POP 


PSW 


F60 7 


CD0BF6 


CALL 


TINI0 


F60A 


C9 


RET 




F60B 


E6E0 


TINI0: ANI 


0E0H 


F60D 


07 


RLC 




F60E 


07 


RLC 




F60F 


07 


RLC 




F610 


FE07 


CPI 


7 


F612 


CA23F6 


JZ 


DFBAUD 


F615 


2147F6 


LXI 


H,BTAB 


F618 


87 


ADD 


A 


F619 


5F 


MOV 


E,A 


F61A 


1600 


MVI 


D,0 


F61C 


19 


DAD 


D 


F61D 


5E 


MOV 


E,M 


F61E 


23 


I NX 


H 


F61F 


56 


MOV 


D,M 


F620 


C327F6 


JMP 


SETIT 


F623 


2A45EA 


DFBAUD: LHLD 


DEFCON 


F626 


EB 


XCHG 




F627 


3E87 


SET IT: MVI 


A, DLAB+WLS1+WLS0+STB 


F629 


D34B 


OUT 


LCR 


F62B 


7A 


MOV 


A,D 


F62C 


D349 


OUT 


DLM 


F62E 


7B 


MOV 


A,E 


F62F 


D348 


OUT 


DLL 


F631 


3E07 


MVI 


A,WLS1+WLS0+STB 


F633 


D34B 


OUT 


LCR 


F635 


AF 


XRA 


A 


F636 


D349 


OUT 


lER 


F638 


D34D 


OUT 


LSR 


F63A 


3E03 


MVI 


A, DTRENB+RTSENB 


F63C 


D34C 


OUT 


MCR 


F63E 


DB4E 


IN 


MSR 


F640 


DB4D 


IN 


LSR 



; INITIALIZE THE CONSOLE 
; SELECT THE READER/PUNCH 

I 

.-INITIALIZE THE READER/PUNCH 



;MASK IN UPPER THREE BITS 
;M0VE into lower 3 BITS 



; CHECK FOR SENSE = 7 ( DEFAULT SETTING) 
;USE DEFAULT BAUD RATE ; 

; POINTER TO BAUD RATE TABtE 
; TABLE OF WORDS SO DOUBLE 
;MAKE A 16 BIT NUMBER INTO (DE) 

;GET A POINTER INTO BAUD RATE TABLE 

;GET LOWER BYTE OF WORD 

;BUMP TO HIGH BYTE OF WORE) 

;GET UPPER BYTE. (DE) NOW I HAS DIVISOR 

;SET BAUD RATE 

;USE DEFAULT BAUD RATE 



; ENABLE DIVISOR ACCESS LATCH 
;SET THE BAUD RATE IN (DE) 

;SET UPPER DIVISOR 

;SET LOWER DIVISOR 

; CLEAR DIVISOR LATCH ' 



;SET NO INTERRUPTS 

; CLEAR STATUS 

; ENABLE DTR AND RTS OUTPUTS TO TERMINAL 

; CLEAR MODEM STATUS REGISTER 
; CLEAR LINE STATUS REGISTER 






m 
m 
# 
# 
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CBIOS Revis 


F642 


DB48 






IN 


RBR 


F644 


DB48 






IN 


RBR 


F646 


C9 






RET 




F647 


1704 


BTAB: 


DW 


1047 


F649 


3001 






DW 


384 


F64B 


6000 






DW 


96 


F64D 


3000 






DW 


48 


F64F 


1800 






DW 


24 


F651 


0C00 






DW 


12 


F653 


0600 






DW 

EMDIF 
IF 


6 

CONTYP EQ 3 






TTYSET : 


CALL 


FDTSTAT 










RNZ 












CALL 


FDCIN 










JMP 


TTYSET 



March 4, i9S2 



ENDIF 



IF 


CONTYP EQ 4 


TTYSET : CALL 


DMINlT • 


RC 




LXI 


D,DMACI 


LXI 


H,DMCHAN 


LXI 


B,10 


CALL 


MOVBYT 


DCX 


H 


XRA 


A 


STA 


SERIN+1 


JMP 


D0CMD2 


DM AC I : DB 


WRITEM 


DW 


TTYSET 


DB 





DW 


1 


DW 


13F5H 


DB 


SENABL 


DB 


1 



; CLEAR RECIEVER BUFFERS 



;110 BAUD 


000 


;300 


001 


fl200 


010 


;2400 


011 


;4800 


100 


; 9600 


101 


; 19200 


110 


; DEFCON 


111 



;MULTI I/O, DECISION I • 
;2D/B CONSOLE INITIALIZATION 

; CLEAN INPUT BUFFER 
;ALL EMPTY 

;2D/B CONSOLE 



;SEE IF CONTROLLER PRESENt 

;N0 CONTROLLER, RETURN 

; CONSOLE INITIALIZATION SEQUENCE 

; COMMAND LENGTH 



; CLEAR SERIAL INPUT STATUS 

;DO STUFF AND RETURN \ 

;ZOT MONITOR DISABLE FLAG 
;ANY NON-ZERO BYTE WILL DO 

;ONE BYTE 

? MAGICAL PLACE IN MONITOR 

; ENABLE SERIAL INPUT 



ENDIF ! 

************************************************************************* 

* * 

* INITIALIZE THE NORTH STAR MOTHER BOARD, LEFT SERIAL PORT, RIGHT * 

* SERIAL PORT, AND NORTH STAR RAM PARITY. 









* 
* ■ I * 

*****************************************************************'^******* 



IF 



CONTYP EQ 6 



TTYSET : 



; NORTH STAR DRIVERS 

;SET UP THE PARALLEL PORT + MOTHERBOARD 



m 
m 
m 
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; INITIALIZE MOTHER BOARD 



NSET0! 



NSETl; 



XRA 


A 




OUT 


6 




OUT 


6 




OUT 


6 




OUT 


6 




MVI 


A, 30H 




OUT 


NSPSTA 




MVI 


A,60H 




OUT 


NSPSTA 




MVI 


A,ACR 




CALL 


NSPOUT 




MVI 


A,NSLIN1 




OUT 


NSLSTA 




MVI 


A,NSLIN2 




OUT 


NSLSTA 




XRA 


A 




OUT 


NSLDAT 




IN 


NSLDAT 




IN 


NSLDAT 




MVI 


A,NSRIN1 




OUT 


NSRSTA 




MVI 


A,NSRIN2 




OUT 


NSRSTA 




XRA 


A 




OUT 


NSRDAT 




IN 


NSRDAT 




IN 


NSRDAT 




IF 


NSRAM NE 




MVI 


A,40H 




OUT 


NSRAM 




LXI 


H, 




MOV 


A,M 




MOV 


M,A 




INR 


L 




JNZ 


NSET0 




INR 


H 




JZ 


NSET2 




MVI 


A, (HIGH $) + 


1 


CMP 


H 




JC 


NSET0 




MOV 


A,M 




MOV 


B,A 




CMA 






MOV 


M,A 




CMP 


M 




MOV 


M,B 




JZ 


NSET0 




ORA 


A 





; RESET THE PARALLEL PORT JNPUT FLAG 
;SET THE PARALLEL PORT OUTPUT FLAG 
7 FORCE A CR OUT THE PARALLEL PORT 



; INITIALIZE THE LEFT SERIAL PORT 
;SEE THE EQUATES FOR BIT li)EFINATIONS 



; CLEAR THE INPUT/OUTPUT BUFFERS 



# 



; INITIALIZE THE RIGHT SERIAL PORT 
;SEE THE EQUATES FOR BIT DEFINATIONS 



; CLEAR THE INPUT/OUTPUT BUFFERS 



; RESET PARITY ON NORTH STAR RAMS 
; DISABLE PARITY LOGIC 

; STARTING ADDRESS 

;GET A BYTE 

; REWRITE, SET PROPER PARITY 

• BUMP THE ADDRESS POINTER I 



;SKIP TO THE NEXT MEMORY PAGE 

;SKIP IF ALL DONE ; 

; IS THE POINTER ABOVE US? : 

;SET CARRY IF POINTER IS <= OUR PAGE+1 

; RESET THE NEXT PAGES PARITY 

• TEST FOR A PROM OR NO MEl^ORY 

;SAVE THE ORIGINAL BYTE 

;SEE IF THIS LOCATION WILL CHANGE 

;TEST FOR A CHANGE 

; RESTORE THE ORIGINAL VALUE 

; VALUE COMPLEMENTED, MUST : BE RAM 

7 TEST FOR NO MEMORY PRESENT 






# 
# 
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JZ 


NSETl 




LXI 


D, 700H 




DAD 


D 




JNC 


NSETl 


NSET2 : 


MVI 


A,41H 




OUT 


NSRAM 




ENDIF 




CRT SET: 






PTRSET: 






PTPSET: 






UCISET: 






URISET: 






UR2SET: 






UPISET 






UP2SET 






LPTSET 






ULISET 


RET 
ENDIF 





;SKIP TO THE NEXT PAGE IF I NO MEMORY 
;SKIP 2K BYTES OF 'PROM' | 

;D0 A PAGE CHECK IF NO OVERFLOW 

; RE-ENABLE PARITY ON THE I^EMORY BOARDS 

;NULL ROUTINES 



# 



IF 



F655 


CDE3EA 


LSTSET: CALL 


SELLST 


F658 


3E80 


MVI 


A, DLAB 


F65A 


D34B 


OUT 


LCR 


F65C 


2A47EA 


LHLD 


DEFLST 


F65F 


7C 


MOV 


A, H 


F660 


D349 


OUT 


DLM 


F662 


7D 


MOV 


A,L 


F663 


D348 


OUT 


DLL 


F665 


3E07 


MVI 


A,STB+WLS0+WLS1 


! F667 


D34B 


OUT 


LCR 


F669 


3E03 


MVI 


A, DTRENB+RTSENB 


F66B 


D34C 


OUT 


MCR 


F66D 


DB48 


IN 


RBR 


F66F 


AF 


XRA 


A 


F670 


D349 


OUT 


lER 


F672 


C9 


RET 





; NORTH STAR DRIVERS 

(LSTTYP GE 2) AND (LSTTYP LE 5) ; SERIAL MULTI l/O LIST DRIVERS 

; SELECT PRINTER GROUP ; 
;ACCESS DIVISOR LATCH ' 

1 
;GET LST: BAUD RATE DIVISOR 

;SET UPPER BAUD RATE 



2 STOP BITS + 8 BIT WORD 
DTR + RTS ENABLED 
CLEAR INPUT BUFFER 
NO INTERRUPTS 






ENDIF 



F673 00FF00 




DB 


0,0FFH,0 


0C76 = 


CODELEN 


EQU 


($-BIOS) 






IF 


CODELEN 






' FATAL 


ERROR, sy 




DBGTMP 


SET 
ENDIF 


CODELEN 






IF 


DEBUG 




DBGTMP 


SET 
ENDIF 


CODELEN 



; LENGTH OF CBIOS CODE 



1000H ;TEST FOR SYSGEN PROBLEMS 
ERROR, system is too big for SYSGEN rev. 4.X' 

; CBIOS CODE LENGTH I <DEBUG> 



; CBIOS CODE LENGTH 



<DEBUG> 



• 
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DS 
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512-($-BUFFER) ; BUFFER FOR 512 BYTE SECTORS 

(MAXFD HE 0) OR (MAXDM NE 0) OR (MAXMW NE 0) i 

512 ; ADDITIONAL SPACE FOR IK SECTOR DEVICES 



* * 

* EACH BAD MAP ENTRY CONSISTS OF 9 BYTES: * 
LOGICAL DRIVE NUMBER (1 BYTE) * 
TRACK NUMBER OF BAD SECTOR (2 BYTES) * 
SECTOR NUMBER OF BAD SECTOR (2 BYTES) * 
TRACK NUMBER OF ALTERNATE SECTOR (2 BYTES) * 
SECTOR NUMBER OF ALTERNATE SECTOR (2 BYTES) * 



• 



F96D 
F977 
F9F7 



BADMAP : 


DS 


BADSIZ*9+1 


DIRBUF: 


DS 


128 


TEMPB : 


DS 


16 



;32 ENTRIES + END MARKER 

; DIRECTORY BUFFER 

;A LITTLE TEMPORARY BUFFER 

* * 

* ALLOCATION AND CHECKED DIRECTORY TABLE AREA * 

* * 

***************************************************************** 



IF 
IF 



TRACKS 

DSM 

ALV 

DN 



DN 



MAXHD NE 
HDPART NE 



SET 


HDTRKS/HDLOG 


SET 


HDSECTP/8*TRACKS/4-l 


SET 


(DSM/8)+l 


SET 





REPT 


MAXHD*HDLOG 


ALLOC 


HD,%DN,%ALV,0 


SET 


DN+1 


ENDM 





;USE NON-STANDARD PARTITIONING 

; NUMBER OF TRACKS PER PAR-tlTION 
; NUMBER OF GROUPS PER PAR'I'ITION 



; GENERATE CKS AND ALV TABLES 



ELSE 



; STANDARD PARTITIONING 



0000 



DN 


SET 









REPT 


MAXHD 






IF 


M26 NE 







ALLOC 


HD,%DN, 


252,0 


DN 


SET 


DN+1 






ALLOC 


HD,%DN, 


252,0 


DN 


SET 


DN+1 






ALLOC 


HD,%DN, 


256,0 


DN 


SET 
ENDIF 


DN+1 






IF 


M10 NE 
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ALLOC 


HD,%DN, 159,0 




DN 


SET 


DN+1 






ALLOC 


HD,%DN, 161,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M20 NE 






ALLOC 


HD,%DN, 255,0 




DN 


SET 


DN+1 






ALLOC 


HD,%DN, 255,0 




DN 


SET 


DN+1 






ALLOC 


HD,%DN, 129,0 




DN 


SET 

ENDIF 

ENDM 


DN+1 


FA07+ 


CSVHD0: 


DS 





FA07+ 


ALVHD0 : 


DS 


255 


FB06+ 


CSVHDl: 


DS 





FB06+ 


ALVHDl : 


DS 


255 


FC05+ 


CSVHD2 : 


DS 





FC05+ 


ALVHD2 : 


DS 

ENDIF 

ENDIF 


129 






IF 


MAXFD NE 




DN 


SET 









REPT 


MAXFD 






ALLOC 


FD,%DN,75,64 




DN 


SET 

ENDM 

ENDIF 


DN+1 






IF 


MAXDM NE 


0000 # 


DN 


SET 









REPT 


MAXDM 






ALLOC 


DM,%DN,75,64 




DN 


SET 
ENDM 


DN+1 


FC86+ 


CSVDM0: 


DS 


64 


FCC6+ 


ALVDM0 : 


DS 

ENDIF 


75 






IF 


MAXMF NE 




DN 


SET 









REPT 


MAXMF 






ALLOC 


MF,%DN,22,16 




DN 


SET 
ENDM 

ENDIF 


DN+1 






IF 


MAXMW NE 






IF 


MWPART NE 



# 









;USE NON-STANDARD PARTITIC})NING 



# 

m 
m 
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TRACKS SET 



0014 = 



FDll 



# 
# 



DSM 
ALV 
DN 



DN 



SET 
SET 
SET 

REPT 
ALLOC 
SET 
ENDM 

ELSE 

SET 



DN 

TRKOFF SET 

PSIZE SET 



BLOCKS 



REPT 



JET 



REPT 
ALLOC 
BLOCKS SET 
DN SET 
ENDM 

BLOCKS SET 

IF 
BLOCKS SET 
ALV SET 

ALLOC 
DN SET 

ENDIF 

ENDM 

ENDIF 
ENDIF 

BIOSLEN EQU 



MWTRKS/MWLOG 

MWSECTP/8*TRACKS/4-l 

(DSM/8)+l 



MAXMW*MWLOG 

MW,%DN,%ALV,0 

DN+1 





8192/(MWSECPT/8)+l 
TRKOFF* (MWSECPT/ 8 ) 

MAXMW 

MWSECPi'/8*MVJTRKS 

BLOCKS/ 81 92 
MW,%DN, 256,0 
BLOCKS -PSIZE 
DN+1 

BLOCKS/ 4 

BLOCKS GT 256 

BLOCKS -1 

{ BLOCKS/8 )+l 

MW,%DN,%ALV,0 

DN+1 



(HIGH ($-BIOS))+l 



; NUMBER OF TRACKS PER PAR-ij^ITION 
; NUMBER OF GROUPS PER PARTITION 



.-GENERATE CKS AND ALV TABLES 



;USE STANDARD PARTITIONING 



; GENERATE SOME 8 MEGABYTE ALV' 



m 
m 
m 



;USE THE REMAINDER 



m 



;BIOS LENGTH IN PAGES 





IF 




■ FATAL 


DBGTMP 


SET 




ENDIF 




IF 


DBGTMP 


SET 




IF 


DBGTMP 


SET 




ENDIF 




ENDIF 



BIOSLEN GT BIOSLN ;TEST FOR OVERFLOW 
ERROR, system overflow. BIOSLN must be at least' 
BIOSLEN ; BIOSLN I <DEBUG> 



DEBUG 

BIOSLN ; CURRENT BIOSLN 1 <DEBUG> 

BIOSLN GT BIOSLEN 

BIOSLEN ; OPTIMAL BIOSLN i <DEBUG> 



END 
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m 



# 
# 






0006 


AACK 


0007 


ABEL 


0003 


ABS 


EFDD 


ACCOK 


000D 


ACR 


007P 


ADEL 


001B 


AESC 


0003 


AETX 


000C 


AFF 


0009 


AHT 


000A 


ALF 


EE8A 


ALL 


EE83 


ALT 


EEA6 


ALT 2 


EEDB 


ALTMIS 


F4FA 


ALTSEC 


F4F8 


ALTTRK 


FCC6 


ALVDM0 


FA07 


ALVHD0 


FB06 


ALVHDl 


FC05 


ALVHD2 


0000 


ANUL 


001E 


ARS 


0020 


ASP 


001F 


AUS 


EAED 


AUTOFLG 


0000 


AUTOLF 


EAEB 


AUTOST 


000B 


AVT 


EE47 


AWRITIN 


ECE6 


BADE 


ECCE 


BADL 


F96D 


BADMAP 


ED0F 


BADPTR 


ECE9 


BADRET 


0001 


BADS I Z 


0004 


BANK 


0E00 


BDOSLN 


DC00 


BDOS 


0014 


BIOSLEN 


0016 


BIOSLN 


EA00 


BIOS 


0026 


BRACHA 


F647 


BTAB 


F4F3 


BUFDRV 


0080 


BUFF 


F56D 


BUFFER 


F4F6 


BUFSEC 


F4F4 


buftrk: 


ED90 


BUFWRTN 


F0DD 


BUILD 


0006 


CBAUD 


E9E7 


CBLOCK 


F5B9 


CBOOT 


D400 


CCP 


0800 


CCPLN 


0004 


CDISK 


0040 


CHECK 


EA09 


CIN 


EBD0 


CLDBOT 


EBB7 


CLDCMND 


001A 


CLEAR 


004A 


CLK 


F4A9 


CLOAD 


0000 


CM5619 


0C76 


CODELEN 


EAF2 


COLDCM 


EAF3 


COLDEND 


EAEE 


COLDMES 


0004 


COMPLT 


0001 


CONGRP 


EAA5 


CONIN 


EAA8 


CONINl 


EAC2 


CONIST 


EAB4 


CONOUT 


EAB7 


CONOUTl 


EA06 


CONST 


0002 


CONTYP 


EA9E 


costrp 


EB85 


COUNT 


EA0C 


COUT 


0004 


COVER 


000 A 


CPERI 


ED71 


CPMDMA 


F4ED 


CPMDRV 


0016 


CPMREV 


F4EB 


CPMSEC 


F4EE 


CPMTRK 


0010 


CRRDY 


0020 


CRSTB 


1020 


CRSTRD 


FC86 


CSVDM0 


FA07 


CSVHD0 


FB06 


CSVIIDI 


FC05 


CSVHD2 


0010 


CTS 


EBDB 


CV7FLG 


0002 


D10 


0004 


Dll 


0008 


D12 


0001 


D9 


0048 


DAISI0 


0049 


DAISIl 


0048 


DAISY0 


0049 


DAISYl 


000A 


DBAD 


EFA0 


DCRC 


0000 


DEBUG 


EA45 


DEFCON 


EA47 


DEFLST 


0020 


DENABLE 


F623 


DFBAUD 


006E 


DFRMLN 


0004 


DHOME 


EB3A 


DIAOST 


EB5F 


DIOUT 


EB54 


DIOUTA 


EB74 


DIOUTB 


F977 


DIRBUF 


ED3D 


DIVDONE 


EFA2 


DIVLOG 


ED2F 


DIVLOOP 


EFA4 


DIVLX 


F015 


DIVSPT 


F017 


DIVSX 


0080 


DLAB 


0048 


DLL 


0049 


DLM 


EA4C 


DMARAP 


0050 


DMCHAN 


F45E 


DMDEN 


F3BB 


DMDMA 


F4BC 


DMDOIT 


F24D 


DMDST 


01FF 


DMFSET 


0066 


DMFSTP 


F371 


DMGET 


0025 


DMHALTC 


F43C 


DMHOME 


F3D3 


DMINIT 


F3E0 


DMIIWT 


F3ED 


DMIOK 


00EF 


DMKICK 


F313 


DMLDRV 


F4D7 


DMLOC0 


F4DF 


DMLOCl 


F4E6 


DMLOG 


F4D2 


DMNTRK 


0002 


DMORDER 


F3FC 


DMPARM 


F49F 


DMREAD 


0023 


DMSDMA 


F443 


DMSEC 


F43E 


DMSEEK 


F39E 


DMSEL2 


F45A 


DMSEL 


F2D6 


DMSELR 


F2F7 


DMSIDEl 


F2FD 


DMSIDE 2 


F2F4 


DMSIDEA 


F44D 


DMSIDE 


F35F 


DMSOK 


F4DA 


DMSPAR 


F3AE 


DMSSEC 


F45F 


DMSTAT 


F404 


DMSTR0 


F42C 


DMSTRl 


F2DE 


DMTRAN 


0B00 


DMTRCK 


F4CC 


DMWAIT 


F264 


DMWARM 


F275 


DMVJBAD 


F291 


DMWCHN 


F4D1 


DMWCON 


F2B1 


DMWEND 


F49C 


DMWRITE 


F2B4 


DMWSEC 


F29C 


DMWST 


F3C4 


DOCMD 


F3C7 


D0CMD2 


EC0A 


DOHOME 


EBF8 


DONOP 


F23D 


DP1024D 


FIFD 


DP1024S 


■EA4E 


DPARAI4 


F20D 


DPB128D 


FICD 


DPB128S 


F21D 


DPB256D 


FIDD 


DPB256S 


F22D 


DPB512D 


FIED 


DPB512S 


F52D 


DPBHD0 


F53D 


DPBHDl 


F54D 


DPBHD2 


F55D 


DPHDM0 


F4FD 


DPHHD0 


F50D 


DPHHDl 


F51D 


DPHHD2 


EC92 


DPHTAB 


EA39 


DRCONF 


0008 


DREAD 


0001 


DR 


0020 


DRVRDY 


0007 


DSDMA 


0002 


DSELl 


0003 


DSEL2 


0020 


DSR 


0006 


DSSEC 


0001 


DSTRAN 


0005 


DSTRK 


EA3B 


DSTTAB 


0001 


DTRENB 


ED4C 


DTSLOP 


0000 


DWBOOT 


0009 


DWRITE 


0008 


ENINT 


0005 


ENTRY 


F4F2 


ERROR 


0000 


FDORDER 


EDF0 


FILL 


ED8F 


FLUSH 


EE31 


FNALOC 


EE50 


FREAD 


0001 


FUJITSU 


EE4B 


FWRITIN 


EC74 


GDPH 


ECA2 


GETBAD 


F011 


GETSPT 


EB86 


GOCPM 


EA44 


GROUP 


004F 


GRPSEL 


0022 


GSTAT 


0000 


GZERO 


F0EC 


HDADD 


0001 


HDCA 


0004 


HDCLOK 


0051 


HDCMND 


0050 


HDCNTL 


F0EB 


HDCUR 


EFBl 


HDD 2 


0053 


HDDATA 


F0EE 


HDDISK 


EFF0 


HDDMA 


EFAB 


HDDRV 


EF12 


HDDST 


0001 


HDFREN 


0052 


HDFUNC 


EFBE 


HDHOME 


EF95 


HDL2 


EF63 


HDLDRV 


0003 


HDLOG 


0001 


HDORDER 


0050 


HDORG 


0000 


HDPART 


F09C 


HDPREP 


F0D2 


HDPTR 


F01E 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


0002 


HDRUN 


F000 


HDSEC 


F0F0 


HDSECT 


EFCC 


HDSEEK 


0052 


HDSKOMP 


0015 


HDSPT 


0050 


HDSTAT 


EF82 


HDTDEL 


F0F1 


HDTRAK 


EF5F 


HDTRAN 


EFDA 


HDTRK2 


EF29 


HDWARM 


0008 


HDWPRT 


F053 


HDWRITE 


EF3E 


HDWRLD 


EF4E 


HDWRRD 


EF51 


HDV7R 


F0EF 


HEAD 


0078 


HINC 


EBFF 


HOME 


0000 


IDBUFF 



m 
m 



cp/m macro ASSEM 2.0 



#104 



CBIOS Revision E for CP/M Version 2.2 - March 4, 1982 



0049 


lER 


0040 


INDEX 


ED80 


INTO 


0024 


INTRQC 


0003 


lOBYTE 


EA43 


lOBYT 


EA3F 


lOCOKF 


0008 


ISBUFF 


EE5C 


JUMPBUF 


EE60 


JUMPER 


EE67 


JUMPL 


EA4B 


LASTCH 


F4FC 


LASTDRV 


0060 


LBAUD 


004B 


LCR 


F4E5 


LLDRV 


F4E4 


LLSS 


F4E3 


LLTRK 


0006 


LPERI 


004D 


LSR 


EA49 


LSTAWD 


0003 


LSTGRP 


EB19 


LSTOST 


EB0C 


LSTOUT 


F655 


LSTSET 


0003 


LSTTYP 


EA4A 


LSTXOR 


0000 


M10F 


0000 


M10 


0000 


M10M 


0001 


M20 


0000 


M26 


EEEC 


M8080 


0400 


MAXCHRS 


0001 


MAXDM 


0000 


MAXFD 


0001 


MAXHD 


0004 


MAXLOG 


0000 


MAXMF 


0000 


MAXMW 


0630 


MAXRGT 


0048 


MBASE 


004C 


MCR 


EF05 


MESSAGE 


0000 


MFORDER 


EEE3 


MOV128 


EEE6 


MOVBYT 


ED5B 


MOVE 


0040 


MSIZE 


004E 


MSR 


FFFF 


MULT I O 


0000 


MULTR3 


0000 


MWORDER 


0000 


MWPART 


0000 


MWQUIET 


0009 


MVJSPT 


0040 


N2SIDE 


0080 


NDUBL 


ED0B 


NOBAD 


0001 


NOSTAND 


00FB 


NSTEP 


00FC 


NULL 


00A0 


NUMTABS 


F4E8 


OBLOCK 


3700 


OFFSETC 


EB3F 


OKIOST 


EB42 


OKOUT 


EB49 


OKOUT 1 


ECF5 


OMES 


0002 


OPDONE 


ED79 


OUTOF 


ECEC 


OVERFLO 


0002 


PAPER 


0008 


PFRDY 


0010 


PFSTB 


0810 


PFSTRD 


EA0F 


POUT 


ED9F 


PREP 


F082 


PROCESS 


F56D 


PROMPT 


0080 


PSELECT 


0004 


PSTEP 


0020 


PWRDY 


0040 


PWSTB 


2040 


PWSTRD 


0048 


RBR 


0020 


RD3ECT 


0029 


RDTRCK 


ED74 


RDWR 


EDI A 


READ 


00A0 


READM 


0080 


READY 


EB26 


REDIR 


EB29 


REDIR0 


EB2E 


REDIRl 


ED21 


REDWRT 


0080 


REST 


0010 


RESTOR 


EEFC 


RETDPH 


000A 


RETRIES 


EDA9 


RETRYLP 


0002 


RETRY 


0035 


REVNUM 


0001 


RIBBON 


0040 


RLIFT 


0001 


RSECT 


F03E 


RTLOOP 


0002 


RTSENB 


ED IE 


RWENT 


EDD2 


RWOP 


0001 


S0 


0002 


SI 


0200 


SECLEN 


ED60 


SECPSEC 


ED22 


SECSIZ 


EC13 


SECTRAN 


EAD3 


SELCON 


EACD 


SELG0 


EAE3 


SELLST 


EADB 


SELRDR 


002C 


SENABL 


0049 


SEWSESW 


003E 


SERIN 


002B 


SEROUT 


0027 


SETCHA 


0028 


SETCRC 


EC47 


3ETD0 


EC4C 


SETDl 


EC56 


SETD2 


EC60 


SETD3 


EBF9 


SETDMA 


EClC 


SETDRV 


F37A 


SETHIGH 


F627 


SETIT 


002E 


SETLOG 


EBF3 


SETSEC 


F0F5 


SETTLE 


EC0D 


SETTRK 


0000 


SIZE 


EFEl 


SLOOP 


0003 


SMASK 


0000 


ST412 


0000 


ST506 


0004 


STB 


F448 


STORES 


F9F7 


TEMPB 


F3CE 


TESTS 


0048 


THR 


0020 


THRE 


F60B 


TINI0 


0001 


TKZERO 


0008 


TMOUT 


0100 


TPA 


002D 


TRKSIZ 


F4F0 


TRUESEC 


F5F3 


TTYSET 


F4EA 


UNADRV 


F4E7 


UNALOC 


0030 


VINC 


EAF3 


WARMCM 


EAF4 


WARMEND 


EAF0 


WARMES 


EA03 


WBOOTE 


EBDC 


WBOOT 


0000 


WBOT 


0010 


WFAULT 


0001 


WLS0 


0002 


WLSl 


0000 


WMDRIVE 


EDll 


VJRITE 


00A1 


WRITEM 


ED8A 


WRITTYP 


0021 


WRSECT 


00 2 A 


WRTRCK 


EFF6 


WSDONE 


0005 


WSECT 


F05F 


WTLOOP 


F18C 


XLT124 


F0FF 


XLT128 


FllA 


XLT256 


F14F 


XLT512 


F0F7 


XLTS 


0013 


XOFF 


0011 


XON 


EEF7 


Z80MOV 


F0C0 


ZKEY 


EC81 


ZRET 















# 
• 
# 
• 



**************************************************************** 



m 

m 



m 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



MORROW DESIGNS CP/M VERS 2.2 COLD BOOT LOADER. 
CBIOS REVISION E.2, 3/4/82. 

THE FOLLOWING ROUTINES WILL BOOT CP/M FROM THE 

DISK JOCKEY 2D REV. B 8 INCH DISK CONTROLLER (DJ2D/B) , 

DISK JOCKEY DMA 8 +5 1/4 INCH CONTROLLER (DJDMA) , 

HARD DISK CONTROLLER REVISION 3 (HDC3), 

OR THE HARD DISK DMA (HDDMA) DISK CONTROLLERS. 

PROVISIONS HAVE BEEN MADE FOR A MICRONIX BOOT LOADER. 
THIS LOADER ALWAYS GETS LOADED TO 0100H. 

8 INCH FLOPPY DISK BOOT LOADER FOR THE 
MORROW DESIGNS DISK JOCKEY 2D/B (DJ2DB) 

THE 'ORDER' COLUMN IS THE INTERLEAVE SEQUENCE USED BY THE 
LOADER DURING THE LOAD. 



TRACK 






























SECTOR 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



SGEN 


LOAD 


ORDER 


900 


FF00 





980 






A00 






A80 






B00 


9100 


1 


B80 


9180 


12 


C00 


9200 


2 


C80 


9280 


13 


D00 


9300 


3 


D80 . 


9380 


14 


E00 


9400 


4 


E80 


9480 


15 


F00 


9500 


5 


F80 


9580 


16 


1000 


9600 


6 


1080 


9680 


17 


1100 


9700 


7 


1180 


9780 


18 


1200 


9800 


8 


1280 


9880 


19 


1300 


9900 


9 


1380 


9980 


20 


1400 


9A00 


10 


1480 


9A80 


21 


1500 


9B00 


11 


1580 


9B80 


22 



NAME 

BOOT LOADER 
UNUSED 



CCP 



BDOS 



TRACK 1 IS RECORDED IN DOUBLE DENSITY F0RI4AT. 
1024 BYTES PER SECTOR. 



THERE ARE 



1 

1 
1 
1 



1 
2 
3 

4 



1600 


9C00 


4 


1A00 


A000 


1 


1E00 


A400 


5 


2200 


A800 


2 



CBIOS (0 A700H) 



* 

* I 

* 1 
* 

* 

* i 

* : 

* 
1 

* I 

* 

* ' 
1 

* 

* 

* 
* 

* ; 
* 

* 
* 

* : 
* 
* 
* 
* 

* ! 

* i 
* 
* 

* 1 
* 
* 

*! 

* i 

* I 

* ; 

* ! 
* 

* i 

* ' 
* 
* 

* 
* 

* I 
* 

* i 

* ! 

* 1 
* 

* ; 
* 
* 
* 

* 
* 

* 



m 
m 



m 









* 


1 


5 


2600 


AC00 


6 




* 


* 


1 


6 


2A00 


B000 


3 




* ! 


* 


1 


7 


2E03 


B400 


7 




* 


* 


1 


8 


3200 


B800 




UNUSED 


* 
* 


* 


THREE SPARE SECTORS (TRACK 


, SECTORS 


2 TO 


4) HAVE BEEN 


* 


* 


PROVIDED 


FOR A MORE ADVANCEE 


) BOOT LOADER AT A LATER DATE. 


* 
* 


* 


THE WAR14 


BOOT LOADER STARTS 


ON TRACK e 


, SECTOR 5 AND 


* ' 


* 


CONTINUES THROUGH 


TO TRACK 1 


SECTOR 3. 


ONLY THE FIRST 


* i 


* 


3/4 K BYTES OF TRACK 1, SECTOR 3 IS LOADED 


SINCE CP/M 


* 


* 


REQUIRES 


THAT THE 


WARM BOOT 


LOADER LOAD UP 


TO THE START 


* 


* 
* 


OF (BUT NOT PAST) 


THE CBIOS 


JUMP TABLE 


t m 




* 
* 


* 

* 




8 INCH 


FLOPPY DISK BOOT LOADER 


FOR THE 


* 1 

* 


* 




MORROW 


DESIGNS DISK JOCKEY 


DMA 


(DJDMA) 


* 1 

* 


* 


THE LOADING IS IDENTICAL TO 


THAT OF OF THE 


DJ2DB EXCEPT 


* 

1 


* 


THAT THE 


LOADER ITSELF IS LOADED AT 80H AND THE 'ORDER' 


* ! 


* 


COLUMN DOES NOT APPLY. THE 


DJDMA IS CAPABLE OF LOADING A 


* 


* 


COMPLETE 


TRACK AT 


A TIME AND THUS IT MERELY ZAPS THE 


* 


* 
* 


TRACKS IN ALL AT ONCE. 








* 
* 


* 
* 




5 1/4 INCH FLOPPY DISK BOOT LOADER FOR THE 


* : 
* 


* 




MORROW 


DESIGNS DISK JOCKEY 


DMA 


(DJDMA) 


* 
* 


* 


THE COLD 


BOOT LOADER (TRACK 


0, SECTOR 


0) IS LOADED INTO 


* 


* 


RAM AT 80H. THIS 


LOADER WILL START LOADING FROM TRACK 0, 


* 


* 


SECTOR 1 


AND STOPS AT TRACK 


1 , SECTOR 


9. 


THE LOAD 


* 


* 
it 


SEQUENCE 


IS AS FOLLOWS: 








* 


* 


TRACK 


SECTOR 


SYS GEN 


LOAD ORDER 


NAME 


* 


* 








900 


80 





COLD BOOT 


* 


* 





1 


B00 


9500 


1 


CCP 


* : 


* 





2 


D00 


9700 


2 




* 


* 





3 


F00 


9900 


3 




* 


* 





4 


1100 


9B00 


4 




* , 


* 





5 


1300 


9D00 


5 


BDOS 


* 


* 





6 


1500 


9F00 


6 




* 


* 





7 


1700 


A100 


7 




* 


* 





8 


1900 


A300 


8 




* 


* 





9 


1B00 


A500 


9 




* 
* 


* 


1 





1D00 


A700 


10 




*l 


* 


1 


1 


1F00 


A900 


11 




* 


* 


1 


2 


2100 


AB00 


12 


CBIOS 


* 


* 


1 


3 


2300 


AD00 


13 




* ! 


* 


1 


4 


2500 


AF00 


14 




* 


* 


1 


5 


2700 


B100 


15 




* 


* 


1 


6 


2900 


B300 


16 




* ■ 


* 


1 


7 


2B00 


B500 


17 




* ' 


* 


1 


8 


2D00 


B700 


18 




* 


* 


1 


9 


2F00 


B900 


19 




* 


* 














* 



• 












* 


THE 


WARI'd 


BOOT 


STARTS 


FROM TRACK SECTOR 


1 ANE 


) CONTINUES 


* 


* 


THROUGH TO TRACK 1 SECTOR 1. 












* 

* 


* 
* 




SHUGART 


SA4000 


DISK INTERFACE 


BOOT 


LOADER FOR THE 


* '■ 
* 

1 


* 
It 




MORROW DESIGNS 


HARD DISK CONTROLLER 


REV. 


3 {HDC3) 


* 
* 


* 


THE 


COLD 


BOOT 


LOADER 


(TRACK 0, SECTOR 1) 


IS 


LOADED INTO 


* 


* 


RAM 


IN THE VERY LAST 


PART OF 


THE CBIOS. 


TH3 


:s 


AREA IS 


* 


* 


USED FOR 


UNINITIALIZED TABLES AND THUS IS 


A 


SAFE PLACE 


* 


* 


FOR 


THE LOADER. THIS COLD BOOT LOADER WILL 


START LOADING 


* 


* 


THE 


CCP FROM TRACK 


, SECTOR 


2 AND 


WILL FINISH UP WITH 


* ' 


* 
* 


THE 


LAST 


PART 


OF THE 


CBIOS ON TRACK 


0, SECTOR 


20. 


* 
* 


* 


TRACK 


SECTOR 


3YSGEN 


LOAD 


ORDER 






NAME 


* 


* 









1 


900 


FC00 


1 






COLD BOOT 


* ' 


* 









2 


B00 


9500 


2 






CCP 


* 


* 









3 


D00 


9700 


3 








* 


* 









4 


F00 


9900 


4 








* ; 

i 


* 









5 


1100 


9B00 


5 








* 1 


* 









6 


1300 


9D00 


6 






BDOS 


* 


* 









7 


1500 


9F00 


7 








* 


* 









8 


1700 


A100 


8 








* 


* 









9 


1900 


A300 


9 








* 


* 









10 


1B00 


A500 


10 








* 


* 









11 


1D00 


A700 


11 








* 


* 









12 


1F00 


A900 


12 








* 


* 









13 


2100 


AB00 


13 






CBIOS 


* 


* 









14 


2300 


AD00 


14 








* 


* 









15 


2500 


AF00 


15 








* 


* 









16 


2700 


B100 


16 








* 


* 









17 


2900 


B300 


17 








* 


* 









18 


2B00 


B500 


18 








* 


* 









19 


2D00 


B700 


19 








* 


* 









20 


2F00 


B900 


20 








* 


* 









21 


3100 










UNUSED 


* 
* 


* 


THE 


WARM 


BOOT 


LOAD SEQUENCE 


STARTS 


AT TRACK 


0- 


, SECTOR 2 


* 


* 


AND 


GOES 


STRAIGHT THROUGH TO 


SECTOR 


12. 


THERE IS STILL 


* 


* 


PLENTY OF ROOM LEFT 


IN THIS ] 


LOADER 


FOR MORE 


ADVANCED 


* 


* 


THINGS LIKE SECTOR INTERLEAVING ALTHOUGH 


THIS 


IS HARDLY 


* 


* 
* 


NECESSARY ON 


A HARD 


DISK. 












* 
* 


* 

* 




SHUGART 


SA1000 


DISK INTERFACE 


BOOT 


LOADER FOR THE 


* 
* 


* 

1c 




MORROW 


DESIGNS HARD DISK DMA 


. CONTROLLER (HDDMA) 


* 
* 


* 


TRACK 


SECTOR 


SYS GEN 


LOAD 


ORDER 






NAME 


* 


* 









1 


900 


100 









COLD BOOT + CCP 


* 


* 









2 


D00 


9300 


1 








* 


* 









3 


1100 


9700 


2 








* 


* 









4 


1500 


9B00 


3 






BDOS {@ 9D00) 


* 


* 









5 


1900 


9F00 


4 








* 


* 









6 


1D00 


A300 


5 








* 


* 









7 


2100 


A700 


6 






CBIOS 


* 


* 









8 


2500 


AB00 


7 








* 



# 

m 
m 



# 
m 



* 
* 
* 
* 
* 
* 
* 
* 
* 

■k 



10 



2900 

2D00 



AF00 



B300 



8 
9 



SINCE IK BYTE SECTORS WERE IMPLEMENTED ON THIS DISK; 
TRACK 0, SECTOR 1 CONTAINS BOTH THE COLD BOOT LOADER AND 
PART OF THE CCP. THE COLD BOOT LOADER RELOCATES THIS 
PEICE OF THE CCP TO IT PROPER RESTING PLACE AS PART OF 
THE BOOT PROCESS. 



* 
* 

* 
* 

* 
* 
* 

* 



***************************************************************** 



***************************************************************** 



0000 = 



0040 = 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



THE FOLLOWING TABLE GIVES A GENERAL IDEA AS TO WHERE THE 
VARIOUS PARTS OF OF THE OPERATING SYSTEM ARE IN MEMORY. 

THE ONLY CHANGES TO THE MAP THAT I SEE IN THE FUTURE IS 
THE INCREASING THE SPACE FOR THE UNINITIALIZED TABLES 
FOLLOWING THE CBIOS. THE A140UNT OF CODE AND TABLE SPACE 
THAT CAN ACTUALLY BE LOADED FROM THE DISK IS FIXED BY THE 
AMOUNT OF SPACE AVAILABLE ON THE SYSTEM TRACKS. 

OUR MOST RESTRICTIVE (SMALLEST) DRIVE IS THE 5 1/4 INCH 
'MINNIE FLOPPY' . THIS DRIVE HAS 20 512 BYTE SECTORS FOR 
A TOTAL OF 10K BYTES ON THE SYSTEM TRACKS. THE 8 INCH 
FLOPPY DISK DRIVE IS ALSO VERY CLOSE TO BEING FILLED UP. 

SINCE 512 BYTES ARE RESERVED FOR THE COLD BOOT LOADER WE 
HAVE A TOTAL OF 9.5K BYTES FOR THE OPERATING SYSTEM. OUT 
OF THIS 5.5K BYTES ARE USED BY THE (CCP + BDOS) LEAVING 
US WITH A TOTAL OF 4K BYTES OF LOADED CODE AND DATA SPACE 
TO PLAY V7ITH. RIGHT NOW WE ARE USING ALL OF THIS SPACE 
SO ANY MAJOR ADDITIONS WILL HAVE TO RESULT IN A LITTLE 
(LOT?) OF CODE SHUFFELING OR IN THE CREATION OF A CBIOS 
THAT SIMPLY WILL NOT FIT ON A SMALL DISK DRIVE. 



SYS GEN 48K 



56K 



60K 



62K 



IMAGE CP/M CP/M CP/M CP/M 



64K 
CP/M 



900 
B00 
1300 
2100 
3100 
35FF 



9500 
9D00 
AB00 
BB00 
BFFF 

aD00 



f^ f^ t%f f* 

B500 
BD00 
CB00 
DB00 
DFFF 

AD00 



C500 
CD00 
DB00 
EB00 
EFFF 

BD00 



CD00 
D500 
E300 
F300 
F7FF 

C500 



D500 
DD00 
ED00 
FB00 
FFFF 

CD00 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



LOADER * 

CCP * 

BDOS * 

CBIOS * 

TABLES * 

THE END * 
* 

* 

* 

***************************************************************** 



DDT 



MICRON EQU 

IF 
MSIZE EQU 





MICRON EQ 
64 



;SET TO 1 FOR MICRONIX BOOT LOADEfe 



; MEMORY SIZE OF TARGET CP/M 



m 

m 
m 



0016 
0011 

0800 
0E00 

0000 
D400 
DC00 
EA00 

EA00 
D400 



00 0A = 



BIOSLN EQU 

CODLEN EQU 

CCPLN EQU 

BDQSLN EQU 



SIZE 


EQU 


CCP 


EQU 


BDOS 


EQU 


BIOS 


EQU 



CBOOT EQU 
LOADDR EQU 

ELSE 

CBOOT EQU 
LOADDR EQU 



END IF 
RETRIES EQU 



;BIOS LENGTH 
;CODE LENGTH 



16H 
IIH 

300H 
0E00H 



(MSIZE*1024) 

SIZE-(BIOSLN*100H+CCPLN+BDOSLN) 

CCP+CCPLN 

CCP+CCPLN+BDOSLN 



BIOS 
CCP 



0100H 
0100H 



;COLD BOOT ADDRESS FOR CP/M 
;LOAD ADDRESS FOR FLOPPY 

;MICRONIX BOOT LOADER ; 

;COLD BOOT ADDRESS FOR THE LOADER ^ 



?IF THE LOAD ADDRESS IS MOVED FORWARD FROM 
.0100 THEN THE STARTING EXTENDED ADDRESS FOR 
;THE DJDMA BOOT LOADER SHOULD BE ADJUSTED. 



10 



; MAXIMUM # OF DISK RETRIES 



***************************************************************** 

* * 

* ONLY ONE OF THE FOLLOWING EQUATES SHOULD BE SET. THE * 

* OTHERS SOULD BE 0. THESE EQUATES DEFINE THE BOOT LOADER * 

* THAT IS TO BE USED. * 

* * 

*****************************************************************t 



0001 
0000 
0000 

0000 
0000 



MAXHD 


EQU 


1 


MAXMW 


EQU 





MAXFD 


EQU 





MAXDM 


EQU 





MAXMF 


EQU 






;SET TO BOOT AN HDC3 CONTROLLER , 

;SET TO BOOT A HDDMA CONTROLLER \ 

?SET TO BOOT A DJ2D/B CONTROLLER i 

;SET TO BOOT A DJDMA CONTROLLER WijlTH 8 INCH 

;SET TO BOOT A DJDMA CONTROLLER WITH 5 1/4 INCH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES ARE FOR THE HARD DISK CONTROLLER 3. * 

* * 

***************************************************************** 



0050 
0050 
0050 
0053 
0052 
0051 
0051 





IF 


MAXHD NE 








HDORG 


EQU 


50H 


;HARD 


DISK 


CONTROLLER 


HDSTAT 


EQU 


HDORG 


;HARD 


DISK 


STATUS 


HDCNTL 


EQU 


HDORG 


;HARD 


DISK 


CONTROL 


HDDATA 


EQU 


HDORG+3 


;HARD 


DISK 


DATA 


HDFUNC 


EQU 


HDORG+2 


; HARD 


DISK 


FUNCTION 


HDCMND 


EQU 


HDORG+1 


;HARD 


DISK 


COMMAND 


HDRESLT 


EQU 


HDORG+1 


;HARD 


DISK 


RESULT 






0002 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0004 
00FB 
0004 
0200 
000F 
0003 
0005 
0007 
00F7 
00FC 
0000 
0008 
0001 
0005 



RETRY 


EQU 


2 


TKZ 


EQU 


1 


OPDONE 


EQU 


2 


COMPLT 


EQU 


4 


TMOUT 


EQU 


3 


WFAULT 


EQU 


10H 


DRVRDY 


EQU 


20H 


INDX 


EQU 


40H 


PSTEP 


EQU 


4 


NSTEP 


EQU 


0FBH 


HDRLEN 


EQU 


4 


SECLN 


EQU 


512 


WENABL 


EQU 


0FH 


WRESET 


EQU 


0BH 


SCENBL 


EQU 


5 


DSKCLK 


EQU 


7 


MDIR 


EQU 


0F7H 


NULL 


EQU 


0FCH 


IDBUFF 


EQU 





ISBUFF 


EQU 


8 


RSECT 


EQU 


1 


WSECT 


EQU 
END IF 


5 



RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 



m 
# 



***************************************************************** 
* * 

* THE FOLLOWING EQUATES ARE FOR THE HARD DISK DMA. * 

* * 

***************************************************************** 





IF 


MAXMW NE 


CYL 


EQU 


153 


HEADS 


EQU 


4 


SPT 


EQU 


9 


PRECOMP 


EQU 


64 


LOWCURR 


EQU 


128 


STEPDLY 


EQU 


30 


HEADDLY 


EQU 


20 


SECTSIZ 


EQU 


7 



SPECIFICATIONS FOR A SEAGATE TECHNOLOGY 506 

NUMBER OF HEADS PER CYLINDER 

SECTORS PER TRACK 

CYLINDER TO START WRITE PRECOMENSATION 

CYLINDER TO START LOW CURRENT 

STEP DELAY (0-12.7 MILLISECONDS) 

SETTLE DELAY (0-255 MILLISECONDS) 

SECTOR SIZE CODE (MUST BE 3 FOR THIS CBIOS) 

= 128 BYTE SECTORS 

1 = 258 BYTE SECTORS 
3 = 512 BYTE SECTORS 

7 = 1024 BYTE SECTORS (DEFAULT FOR CP/M) 
F = 2048 BYTE SECTORS 



# 



DMAREAD 


EQU 





DMAWRIT 


EQU 


1 


DMARHED 


EQU 


2 


DMAWHED 


EQU 


3 


DMALCON 


EQU 


4 


DMASSTA 


EQU 


5 


DMANOOP 


EQU 


6 


RESET 


EQU 


54H 


ATTN 


EQU 


55H 



; DEFINE CONTROLLER C0MMA1>3DS 

;READ SECTOR 

; WRITE SECTOR 

;FIND A SECTOR 

; WRITE HEADERS (FORMAT A TRACK) 

;LOAD DISK PARAMETERS 

; SENSE DISK DRIVE STATUS 

;NULL CONTROLLER OPERATION 

; RESET CONTROLLER 

;SEND A CONTROLLER ATTENTION 



• 



CHAN EQU 50H 

STEPOUT EQU i0H 

STEPIN EQU 

BAtJDl EQU 40H 

BAND2 EQU 0C0H 

BAND3 EQU 30H 

TRACK0 EQU 1 

V7FAULT EQU 2 

DREADY EQU 4 
EWDIF 



DEFAULT CHANNEL ADDRESS 
STEP DIRECTION OUT 
STEP DIRECTION IN 
NO PRECOMP, HIGH CURRENT 
PRECOMP, HIGH CURRENT 
PRECOMP, LOW CURRENT 
TRACK ZERO STATUS 
WRITE FAULT FROM DRIVE 
DRIVE READY 






* * 



m 
m 



# 



* THE FOLL0V\riNG EQUATES ARE FOR THE DISK JOCKEY 2D/B. 
* 

***************************************************************** 



* 
* 



IF 

ORIGIN EQU 

DJRAM EQU 

TKZERO EQU 

TRKSET EQU 

SETSEC EQU 

SETDMA EQU 

DREAD EQU 

DMAST EQU 

STATUS EQU 

DSKERR EQU 

SETDEN EQU 

END IF 



MAXFD NE 

0F800H 

ORIGIN+400H 

0RIGIN+9H 

ORIGIN+0CH 

ORIGIN+0FH 

0RIGIN+12H 

0RIGIN+15H 

ORIGIN+24H 

ORIGIN+27H 

0RIGIN+2AH 

0RIGIN+2DH 



;ORGIN OF DJ 2D MOD B PROM 

DISK JOCKEY 2D MOD B ROUTINES 

TRACK SEEK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ SECTOR 

GET DMA ADDRESS 

DISK STATUS 

FLASH ERROR LIGHT 

SET DENSITY 



• 



*********************************************************^i(*jt***** 

* * 

* THE F0LL0V7ING EQUATES ARE FOR THE DISK JOCKEY DMA IF WANTED. * 

* * 
***************************************************************** 



IF 



DJKICK 


EQU 


0EFH 


CHANNL 


EQU 


50H 




IF 


MAXDM NE 


TRKOFF 


EQU 
ELSE 


22*128 


TRKOFF 


EQU 
END IF 


9*512 


SETDMA 


EQU 


23H 


DJHALT 


EQU 


25H 


DJBRAN 


EQU 


26H 


REDTRK 


EQU 


29H 



(MAXDM NE 0) OR (MAXMF NE 0) 

;KICK PORT FOR DJDMA CONTROLLER 



8 INCH BOOT LOADER 

NUMBER OF BYTES LOADED FROM TRACK 

5 1/4 INCH BOOT LOADER 

NUMBER OF BYTES LOADED FROM TRACK 



;SET DMA ADDRESS 

;HALT CONTROLLER 

; BRANCH CONTROLLER COMMAND 

;READ TRACK COi^MAND 



m 
m 



ENDIF 



FE00 = 



0B00 = 
FE00 



***************************************************************** 

* * 

* DEFINE THE ORIGIN ADDRESS FOR THE VARIOUS BOOT LOADERS. * 

* * 

***************************************************************** 



BOOT 



BOOT 



BOOT 



BOOT 



IF 

EQU 
ENDIF 

IF 

EQU 

ENDIF 

IF 

EQU 

ENDIF 

IF 

EQU 
ENDIF 



MAXHD NE ;HDC3 

BIOS+(BIOSLN*100H)-512 ;VERY LAST PART OF CP/M SYSTEM 



MAXMW NE 
100H 



MAXFD NE 
DJRAM+300H 



;HDDMA 



;DJ2D/B 

; UPPER 3/4 OF ON BOARD FLOPPY RAi4 



(MAXDM NE 0) OR (MAXMF NE 0) ;DJDI4A 
80H 



OFFSET EQU 
ORG 



900H-BOOT 
BOOT 



;DDT OFFSET 



***************************************************************** 

* * 

* COLD BOOT LOADER FOR A HARD DISK. * 

* * 

***************************************************************** 



;SET UP STACK AT END OF THIS SECTOR 

;B = SECTOR COUNT, C = SECTOR # 

;G0 TO CP/M 

;COPY PART OF CCP UP 



;GET A BYTE 
;SAVE IT 
;BUMP POINTERS 

;BUMP COUNTER 
;TEST FOR END 



FE00 


31FEFF 


IF 
LXI 


I MAXHD NE k) 
SP,CSTKIiD 






IF 


MAXHD NE 


FE03 


010213 


LXI 


B,19*100H+2 


FE06 


CD0CFE 


CALL 


CLODHD 


FE09 


C300EA 


JMP 
ELSE 


CBOOT 






LXI 


H,BOOT+200H 






LXI 


D,LOADDR 






LXI 


B,200H 






MOVLOP: MOV 


A,M 






STAX 


D 






INX 


H 






I NX 


D 






DCX 


B 






MOV 


A,B 






ORA 


C 






JNZ 


MOVLOP 






LXI 


B,10*100H+2 






CALL 


CLODHD 






JMP 


CBOOT 



;B = SECTOR COUNT, C = SECTOR # 
;G0 TO CP/M 



m 
m 
m 
m 



m 
m 
m 

m 
m 
m 



ENDIF 



;SAVE SECTOR AND COUNT 
;LOAD SECTOR 

;GET DMA ADDRESS (SELF MODIFYING) 
; STORAGE FOR PREVIOUS DMA ADDRESS 

7 OFFSET TO NEW DMA ADDRESS 



;ADD IN OFFSET, HL = NEW DMA ADDRESS 

;SAVE NEW DMA ADDRESS 

; ATTEMPT A READ 

; RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
; UPDATE SECTOR COUNT 
;ALL DONE ? 
;BUMP SECTOR NUMBER 
.•CONTINUE READING ; 

***************************************************************** 

* * 

* CRDHD DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 
***************************************************************** 



FE0C 


C5 CLODHD PUSH 


B 


FE0D 


79 


MOV 


A,C 


FEi3E 


3290FE 


STA 


HDSEC 


FEll 


2100D2 


LXI 


H,LOADDR-200H 


FE12 


CDMAHD EQU 


$-2 






IF 


MAXHD NE 


FE14 


110002 


LXI 
ELSE 


D,200H 






LXI 


D, 400H 






ENDIF 




FE17 


19 


DAD 


D 


FE18 


2212FE 


SHLD 


CDt-IAHD 


FEIB 


CD25FE 


CALL 


CRDHD 


FEIE 


CI 


POP 


B 


FEIF 


05 


DCR 


B 


FE20 


C8 


RZ 




FE21 


0C 


INR 


C 


FE22 


C30CFE 


JMP 


CLODHD 



m 
m 







IF 


MAXHD NE 


FE25 


01010A CRDHD LXI 


B, RETRIES 


FE28 


C5 CRHD PUSH 


B 


FE29 


CD35FE 


CAT J. 


HDREAD 


FE2C 


CI 


POP 


B 


FE2D 


D0 


RNC 




FE2E 


05 


DCR 


B 


FE2F 


C228FE 


JNZ 


CRHD 


FE32 


C332FE 


JMP 


$ 


FE35 


CD7CFE HDREAD CALL 


HDPREP 


FE38 


D8 


RC 




FE39 


3E01 


MVI 


A, RSECT 


FE3B 


D351 


OUT 


HDCMND 


FE3D 


CD62FE 


CALL 


PROCESS 


FE40 


D8 


RC 




FE41 


AF 


XRA 


A 


FE42 


D351 


OUT 


HDCMND 


FE44 


0680 


MVI 


B,SECLN/4 


FE46 


2A12FE 


LHLD 


CDMAHD 


FE49 


DB53 


IN 


HDDATA 


FE4B 


DBS 3 


IN 


HDDATA 


FE4D 


DBS 3 RTLOOP IN 


HDDATA 


FE4F 


77 


MOV 


M,A 


FE50 


23 


I NX 


H 


FE51 


DBS 3 


IN 


HDDATA 


FE53 


77 


MOV 


M,A 



;LOW LEVEL HDC3 DRIVERS 
B,RETRIES*100H+1 .-MAXIMUM # OF ATTEMPTS 

;SAVE ERROR COUNT 
; ATTEMPT THE READ 
.-RESTORE THE ERROR COUNT 
.-RETURN IF NO ERROR 
.-UPDATE ERROR COUNT 

.-TRY AGAIN IF NOT TOO MANY ERRORS 
; DYNAMIC ERROR HALT 



.-PREPARE THE SECTOR HEADER IMAGE 

.-ERROR EXIT 

.-READ SECTOR COMMAND 

.-PROCESS THE READ 

.-ERROR EXIT 

.-POINTER TO DATA BUFFER 

.-NUMBER OF BYTES TO READ 
.-GET DESTINATION OF DATA 
;TWO DUMMY DATA BYTES 

.-MOVE FOUR BYTES 
;BYTE ONE 



;BYTE TWO 



• 
• 



m 
m 
m 



FE54 23 


INX 


H 


FE55 DB53 


IN 


HDDATA 


FE57 77 


MOV 


M,A 


FE58 23 


INX 


H 


FE59 DB53 


IN 


HDDATA 


FE5B 77 


MOV 


M,A 


FE5C 23 


INX 


H 


FE5D 05 


DCR 


B 


FE5E C24DFE 


JNZ 


RTLOOP 


FE61 C9 


RET 




FE62 DB50 


PROCESS IN 


HDSTAT 


FE64 47 


MOV 


B,A 


FE65 E602 


ANI 


OPDONE 


FE67 CA62FE 


JZ 


PROCESS 


FE6A 3E07 


MVI 


A, DSKCLK 


FE6C D350 


OUT 


HDCNTL 


FE6E DB50 


IN 


HDSTAT 


FE70 E608 


ANI 


TMOUT 


FE72 37 


STC 




FE73 C0 


RNZ 




FE74 DB51 


IN 


HDRESLT 


FE76 E602 


ANI 


RETRY 


FE78 37 


STC 




FE79 C0 


RNZ 




FE7A AF 


XRA 


A 


FE7B C9 


RET 




FE7C DB50 


HDPREP IN 


HDSTAT 


FE7E E620 


ANI 


DRVRDY 


FE80 37 


STC 




FE81 C0 


RNZ 




FE82 3E08 


MVI 


A, ISBUFF 


FE84 D351 


OUT 


HDCMND 


FE86 3EFC 


MVI 


A, NULL 


FE88 D352 


OUT 


HDFUNC 


FESA AF 


XRA 


A 


FE8B D353 


OUT 


HDDATA 


FE8D D353 


OUT 


HDDATA 


FE8F 3E00 


MVI 


A,0 


FE90 = 


HDSEC EQU 


$-1 


FE91 D353 


OUT 


HDDATA 


FE93 3E80 


MVI 


A, 80H 


FE95 D353 


OUT 


HDDATA 


FE97 3E07 


MVI 


A, DSKCLK 


FE99 D350 


OUT 


HDCNTL 


FE9B 3E0F 


MVI 


A,WENABL 


FE9D D350 


OUT 


HDCNTL 


FE9F C9 


RET 





FFFE 

FFFE = 
FFFE 00FE 



ORG 

CSTKHD EQU 
DVJ 
END IF 



BOOT+200H-2 

$ 
BOOT 



;BYTE THREE 



;BYTE FOUR 



; UPDATE BYTE COUNT 



;WAIT FOR COMMAND TO FINISH 



;TURN ON DISK CLOCK 



; TIMED OUT ? 



;ANY RETRIES ? 



;N0 ERROR EXIT 



;IS DRIVE READY ? 



.•INITIALIZE POINTER TO HEADER BUFFER 



; SELECT DRIVE A 

FORM HEAD BYTE 
FORM TRACK BYTE 
FORM SECTOR BYTE 



;FORM KEY ' 

;TURN ON DISK CLOCK 
; WRITE ENABLE ON 

;LAST WORD ON SECTOR IS LOAD ADDRESS 



• 






m 
m 



• 





IF 


MAXMW NE ! 


CRDHD 


CALL 


HDSETUP 




LXI 


B, RETRIES 


CRHD 


PUSH 


B 




CALL 


HDISSUE 




POP 


B 




RNC 






DCR 


B 




JNZ 


CRHD 


ERROR 


JMP 


$ 


HDSETUP 


SHLD 


DMADMA 




CALL 


HDRESET 




LDA 


HDSEC 




DCR 


A 




CALL 


DIVSPT 




AD I 


SPT 




STA 


DMARG3 




MOV 


A, C 




STA 


DMARG2 




CI«L 






ANI 


7 




RLG 






RLC 






STA 


DMASELl 




RET 




DIVSPT 


MVI 


C,0 


DIVSPTX 


SUI 
RC 


SPT 




INR 


C 




JMP 


DIVSPTX 


HDRESET 


MVI 


A, (RET) 




STA 


HDRESET 




OUT 


RESET 




LXI 


H, DMACHAN 




SHLD 


CHAN 




XRA 


A 




STA 


CHAN+2 




XTHL 






XTHL 






CALL 


HDISSUE 




JC 


ERROR 




MVI 


A, DMAS STA 




STA 


DMAOP 


RDYCHEK 


CALL 


HDISSUE 




ANI 


DREADY 




JNZ 


RDYCHEK 




LXI 


H, 0FFFFH 




SHLD 


DMASTEP 




CALL 


HDISSUE 




LXI 


H,0 




SHLD 


DMASTEP 




SHLD 


DMARG0 




SHLD 


DMARG3 



;LOW LEVEL HDDMA ROUTINES 
;SET UP PARAMETERS 
. ; MAXIMUM # OP ATTEMPTS 
;SAVE ERROR COUNT 
; ATTEMPT THE READ 
.•RESTORE THE ERROR COUNT 
; RETURN IF NO ERROR 
; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TOO MANY ERRORS 
; DYNAMIC ERROR HALT 

;SET UP DMA ADDRESS 

; RESET CONTROLLER 

;SET LOGICAL SECTOR NUMBER 

; RANGE IS ACTAULLY 0-16 

; FIGURE OUT HEAD NUMBER -> (C) 

;MAKE REAL SECTOR NUMBER 



;SAVE HEAD NUMBER ' 

; NEGATIVE LOGIC FOR THE CONTROLLER 
;3 BITS OF HEAD SELECT 
; SHOVE OVER TO BITS 2-4 

;SAVE IN COMMAND CHANNEL HEAD SELECT 



.-CLEAR HEAD COUNTER 

.•SUBTRACT A TRACKS WORTH OF SECTORS 

.•RETURN IF ALL DONE 

;BUMP TO NEXT HEAD 



.-ONE TIME CODE 

;SEND RESET PULSE TO CONTROLLER 
.•ADDRESS OF COMMAND CHANNEL 
.•DEFAULT CHANNEL ADDRESS 

.•CLEAR EXTENDED ADDRESS BYTE 
.-WAIT FOR RESET (AROUND 10 USEC'S) 

;D0 LOAD CONSTANTS 

; CONTROLLER NOT PRESENT 

.•SENSE STATUS COMMAND 



.•CHECK FOR DRIVE READY 
.•LOOP IF NOT READY 

;D0 RECALIBRATE 



.•CLEAR STEP COUNTER 

; CLEAR CYLINDER # 

.•CLEAR SECTOR # + READ DISK COMMAIJJD 






m 
m 






RET 



HDISSUE 


LXI 


H, DMASTAT 




MVI 


M,0 




OUT 


ATTN 




LXI 


D,0 




MOV 


B,E 


HDILOOP 


MOV 


A,M 




01^ 


A 




RM 






STC 






RNZ 






XTHL 






XTHL 






XTHL 






XTHL 






DCX 


D 




MOV 


A,D 




OKA 


E 




JNZ 


HDILOOP 




STC 






RET 




HDSEC 


DB 





DMACHAN 


EQU 


$ 


DMASEL0 


DB 


10H 


DMASTEP 


DW 





DMASELl 


DB 





DMADMA 


DW 







DB 





DMARG0 


DB 





DMARGl 


DB 


STEPDLY 


DMARG2 


DB 


HEADDLY 


DM ARC 3 


DB 


SECTSIZ 


DMAOP 


DB 


DMALCON 


DMASTAT 


DB 





DMALNK 


DW 


DMACHAN 




DB 







ORG 


BOOT+200H 


CSTKHD 


EQU 
END IF 
END IF 


$ 



; STATUS BYTE 

; START CONTROLLER 

;TIME OUT COUNTER 

.•CONTROLLER BUSY STATUS 

;GET STATUS 

;SET UP CPU FLAGS 

; RETURN NO ERROR (CARRY RESET) 

; RETURN ERROR STATUS 
; WASTE SOME TIME 



;BUMP TIMEOUT COUNTER 



;LOOP IF STILL BUSY 
;SET ERROR FLAG 



: CURRENTLY SELECTED SECTOR 

COMMAl^D CliANNEL AREA 

DRIVE SELECT (STEP OUT, DRIVE 0) 

RELATIVE STEP COUNTER 

HEAD SELECT 

DMA ADDRESS 

EXTENDED ADDRESS 

FIRST ARGUMENT 

SECOND ARGUMENT (STEPPING TIME) 

THIRD ARGUMENT (SETTLE TIME) 

FOURTH ARGUMENT (SECTOR SIZE) 

OPERATION CODE 

CONTROLLER STATUS BYTE 

LINK ADDRESS TO NEXT COMMAND CHAltlNEL 

EXTENDED ADDRESS 



•STACK AREA AT END OF SECTOR 



# 



ie***ie***1fk************-k*********************ic********-k*if1c****1c*** 

* * 

* COLD BOOT LOADER FOR THE DISK JOCKEY 2D REVISION B CONTROLLER * 

* * 

***************************************************************** 





IF 


MAXFD NE 


T0BOOT 


MVI 


A, 5-2 


NEWSEC 


EQU 


$-1 




INR 


A 




INR 


A 



; FIRST SECTOR - 2 
; UPDATE SECTOR # 






;SIZE OF TRACK IM SECTORS + 1 

;SKIP IF NOT AT END OF TRACK ; 
;DONE WITH THIS TRACK ; 

I 

;BACK UP TO SECTOR 6 

; MEMORY ADDRESS OF SECTOR - 100H , 

;SAVE THE UPDATED SECTOR # 

! 

;SET UP THE SECTOR 

; MEMORY ADDRESS OF SECTOR - 100H 

; UPDATE DMA ADDRESS I 

;SAVE THE UPDATED DMA ADDRESS 

;SET UP THE NEW DMA ADDRESS 
J MAXIMUM # OF ERRORS, TRACK # 

SET UP THE PROPER TRACK 
READ THE SECTOR 

CONTINUE IF NO ERROR 

KEEP TRYING IF ERROR 

TOO MANY ERRORS, FLASH THE LIGHT 

VJE JUMP TO CBOOT NEXT TIME 

SELECT DOUBLE DENSITY 

FIRST SECTOR - 2 

SIZE OF (LOGICAL) TRACK + 1 

NUMBER OF SECTORS TO BACK UP 

DMA START ADDRESS FOR FIRST REVOLUTION - 2048 

DMA START ADDRESS FOR SECOND REV(|)LUTION - 2048 

DIFFERENCE BETWEEN DMA ADDRESSES 

MAXIMUM # OF ERRORS, TRACK # ' 

GO LOAD IN TRACK 1 



***************************************************************** 
* * 





CPI 


27 


TRKSIZ 


EQU 


$-1 




JC 


NOWRAP 




JNZ 


TIBOOT 


EXIT 


EQU 


$-2 




SUI 


27-6 


BACKUP 


EQU 


$-1 




LXI 


H,LOADDR-80H 


NXTDMA 


EQU 


$-2 




SHLD 


NEWDMA 


NOWRAP 


STA 


NEWSEC 




MOV 


C,A 




CALL 


SETSEC 




LXI 


H,LOADDR-100H 


NEWDMA 


EQU 


$-2 




LXI 


D, 100H 


SECSIZ 


EQU 


$-2 




DAD 


D 


NOWRP 


SHLD 


NEWDMA 




MOV 


B,H 




MOV 


C,L 




CALL 


SETDMA 




LXI 


B, RETRIES*100H+0 


NXTRTY 


EQU 


$-2 


FREAD 


PUSH 


B 




CALL 


TRKSET 




CALL 


DREAD 




POP 


B 




JNC 


T0BOOT 




DCR 


B 




JNZ 


FREAD 




JMP 


DSKERR 


TIBOOT 


LXI 


H, CBOOT 




SHLD 


EXIT 




MVI 


C,l 




CALL 


SETDEN 




XRA 


A 




STA 


NEWSEC 




MVI 


A, 8 




STA 


TRKSIZ 




DCR 


A 




STA 


BACKUP 




LXI 


H,LOADDR+0700H 




SHLD 


NEWDMA 




LXI 


H,LOADDR+0300H 




SHLD 


NXTDMA 




LXI 


H, 2048 




SHLD 


SECSIZ 




LXI 


H,RETRIES*100H+1 




SHLD 


NXTRTY 




JMP 


T0BOOT 




ENDIF 





m 
m 






* COLD BOOT LOADER FOR THE DISK JOCKEY DMA CONTROLLER * 

* * 

***************************************************************** 



IF 



MVI A, DJBRAN 

STA CHANNL 

LXI H,COMMND 

SHLD CHANNL+l 

XRA A 

STA CHANNL+3 



(MAXDM NE 0) OR (MAXMF NE 9) ; SET UP DJDMA LOADER 

;LOAD BRANCH CHANNEL COMMAND 
;LOAD NEW COMMAND CHANNEL ADDRESS \ 



DJSTRT: 


OUT 


DJKICK 


DJWAIT : 


LDA 


DJDONE 




ORA 


A 




JZ 


DJV7AIT 




LXI 


H,SECTB0 




LXI 


B,40FFH 




LXI 


D,ENDTBL-SECTB0 


DJLOOP : 


MOV 


A,M 




CMP 


C 




JZ 


DJCONT 




MOV 


M,C 




CMP 


B 




JZ 


DJCONT 




INR 


M 




INR 


D 


DJCONT : 


DCR 


E 




I NX 


H 




JNZ 


DJLOOP 




MOV 


A,D 




ORA 


A 




JZ 


CBOOT 




DCR 


M 




JNZ 


DJSTRT 




JMP 


$ 


COMMND: 


DB 


SETDMA 




DW 


LOADDR-512 




IF 


MICRON EQ 




DB 







ELSE 






DB 


0FFH 




ENDIF 






DB 


REDTRK 




DB 







DB 







DB 







DW 


SECTB0 




DB 







DB 







DB 


SETDMA 




DW 


LOADDR+TRKOFF 



START CONTROLLER 

GET FINAL STATUS ; 

= STILL BUSY 

LOOP IF BUSY 

CHECK FOR BAD LOAD 

B = OK, C = LOADED 

ERROR COUNT + # OF SECTORS 

LOAD SECTOR CODE 

CHECK FOR 0FFH (ALREADY LOADED) 

SKIP IF LOAD WAS 'OK' 

LOAD 'LOADED' FLAG 

CHECK FOR 'OK' STATUS 

SKIP IF LOAD OK 

MAKE FLAG =0 I 

BUMP ERROR COUNTER 

BUMP SECTOR COUNT ' 

BUMP TABLE POINTER 

CHECK OUT ERROR COUNTER 

START CP/M IF NO ERRORS 
DROP RETRY COUNTER 
RETRY LOAD OPERATION 
DYNAMIC ERROR HALT 

SET DMA ADDRESS 
START AT CCP 

EXTENDED ADDRESS FOR CP/M [ 

WRAP AROUND FROM FFFF00 TO 000100 



;READ TRACK 

; TRACK 

;SIDE 

; DRIVE 

; SECTOR TABLE 

; EXTENDED ADDRESS 

; RETURNED STATUS 

;SET DMA ADDRESS 

;LOAD ADDRESS FOR TRACK 1 



# 
# 



# 



DB 







;EXTELS[DED ADDRESS 



DJDONE : 



DB 
DB 
DB 
DB 

DW 
DB 
DB 

DB 
DB 

ORG 



REDTRK 

1 





SECTBl 





DJHALT 



B00T+5DH 



;READ TRACK 

; TRACK 1 

;SIDE 

; DRIVE 

; SECTOR TABLE 1 

; EXTENDED ADDRESS 

; RETURNED STATUS 

;HALT CONTROLLER 
; RETURNED STATUS 

;BOOT + 5CH CONTAINS 'CONFIGURATION BYTE' 



3ECTB0 : 



IF 
DW 
DW 



SECTBl: DW 



0000 





DB 


RETRIES 








ELSE 








SECTB0: 


DW 


0FFH, 0, 


0. 





SECTBl: 


DW 

DB 
END IF 


0, 0. 0, 
I^TRIES 


Q, 





ENDTBL 


EQU 

ENDIF 

END 


$-1 







MAXDM NE ; BOOTING FROM 8 INCH DRIVES 

0FFFFH, 0FFFFH ;D0 NOT LOAD BOOT LOADER 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ;22 SECTORS TO BE LOADED 

0, 0, 0, 0FF00H ; FIRST SEVEN SECTORS 

; RETRY COUNTER 

; BOOTING FROM 5 1/5 INCH DRIVES 



;LOAD TEN SECTORS 
; RETRY COUNTER 

;END OF TABLE MARKER 



• 



0E00 


BDOSLN 


DC00 


BDOS 


0016 


BIOSLN 


EA00 


BIOS 


FE00 


BOOT 


EA00 


CBOOT 


D400 


CCP 


0800 


CCPLN 


FE12 


CDMAHD 


FE0C 


CLODHD 


0011 


CODLEN 


0004 


COMPLT 


FE25 


CRDHD 


FE28 


CRHD 


FFFE 


CSTKHD 


0020 


DRVRDY 


0007 


DSKCLK 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


0052 


HDFUNC 


0050 


HDORG 


FE7C 


HDPREP 


FE35 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


FE90 


HDSEC 


0050 


HDSTAT 


0000 


IDBUFF 


0040 


INDX 


0008 


ISBUFF 


D400 


LOADDR 


0000 


MAXDM 


0000 


MAXFD 


0001 


MAXHD 


0000 


MAXMF 


0000 


MAXMW 


00F7 


MDIR 


0000 


MICRON 


0040 


MSIZE 


00FB 


NSTEP 


00FC 


NULL 


0B00 


OFFSET 


0002 


OPDONE 


FE62 


PROCESS 


0004 


PSTEP 


000A 


RETRIES 


0002 


RETRY 


0001 


RSECT 


FE4D 


RTLOOP 


0005 


SCENBL 


0200 


SECLN 


0030 


SIZE 


0001 


TKZ 


0008 


TMOUT 


000F 


WEWABL 


0010 


WFAULT 


000B 


WRESET 


0005 


WSECT 










m 
m 

m 



m 



